From 4ec024cdc9544c244cbd8b630e8f631fc05c6075 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 25 Jan 2015 08:39:15 -0800
Subject: * 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.
---
 lib.h | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib.h')

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);
-- 
cgit v1.2.3