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;