* eval.c (eval_init): Register juxt as intrinsic.

* lib.c (do_juxt): New static function.
(juxtv): New function.

* lib.h (juxtv): Declared.

* txr.1: Documented juxt.

1 files changed, 10 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 3f38ab97..9443fb88 100644
--- a/lib.c
+++ b/lib.c
@@ -4093,6 +4093,16 @@ val chainv(val funlist)
   return func_f0v(nullify(funlist), do_chain);
 }
 
+static val do_juxt(val funcs, val args)
+{
+  return mapcar(curry_123_1(func_n3(apply), args, nil), funcs);
+}
+
+val juxtv(val funlist)
+{
+  return func_f0v(nullify(funlist), do_juxt);
+}
+
 static val do_and(val fun1_list, val args)
 {
   fun1_list = nullify(fun1_list);