copy-fun: duplicate a function, with own environment.

* eval.c (deep_copy_env): New function.
(eval_init): Register copy-fun intrinsic.

* eval.h (deep_copy_env): Declared.

* lib.c (copy_fun): New function.

* lib.h (copy_fun): Declared.

* vm.c (vm_copy_closure): New function.

* vm.h (vm_copy_closure): Declared.

* txr.1: Documented copy-fun.

1 files changed, 15 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 33eddfe9..3d17a562 100644
--- a/lib.c
+++ b/lib.c
@@ -6129,6 +6129,21 @@ val func_vm(val closure, val desc, int fixparam, int reqargs, int variadic)
   return obj;
 }
 
+val copy_fun(val ofun)
+{
+  val self = lit("copy-fun");
+  type_check(self, ofun, FUN);
+  {
+    val nfun = make_obj();
+    nfun->f = ofun->f;
+
+    if (nfun->f.env)
+      nfun->f.env = if3(nfun->f.functype == FVM,
+                        vm_copy_closure, deep_copy_env)(nfun->f.env);
+    return nfun;
+  }
+}
+
 val func_get_form(val fun)
 {
   val self = lit("func-get-form");