* eval.c (eval_init): Register dupl and swap_12_21 as

the dup and flip intrinsics.

* lib.c (do_dup): New static function.
(dupl): New function.

* lib.h (dupl): Declared.

* txr.1: Documented dup and flip.

1 files changed, 10 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 41a9c29f..7c857423 100644
--- a/lib.c
+++ b/lib.c
@@ -4756,6 +4756,16 @@ val iffi(val condfun, val thenfun, val elsefun)
   return func_f0v(cons(condfun, cons(thenfun, elsefun)), do_iff);
 }
 
+static val do_dup(val fun, val arg)
+{
+  return funcall2(fun, arg, arg);
+}
+
+val dupl(val fun)
+{
+  return func_f1(fun, do_dup);
+}
+
 val vector(val length, val initval)
 {
   int i;