* 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, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 30931b4b..3ac0b1e4 100644
--- a/lib.h
+++ b/lib.h
@@ -691,6 +691,7 @@ val curry_123_23(val fun3, val arg1);
 val curry_1234_34(val fun3, val arg1, val arg2);
 val chain(val first_fun, ...);
 val chainv(val funlist);
+val juxtv(val funlist);
 val andf(val first_fun, ...);
 val andv(val funlist);
 val orf(val first_fun, ...);