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

diff --git a/lib.h b/lib.h
index 378973e6..cd753e52 100644
--- a/lib.h
+++ b/lib.h
@@ -758,6 +758,7 @@ val orv(val funlist);
 val notf(val fun);
 val iff(val condfun, val thenfun, val elsefun);
 val iffi(val condfun, val thenfun, val elsefun);
+val dupl(val fun);
 val swap_12_21(val fun);
 val vector(val length, val initval);
 val vectorp(val vec);