* lib.c (conses, lazy_conses, func_set_env): New functions.

(lazy_conses_func): New static function.

* lib.h (conses, lazy_conses, func_set_env): Declared.

* eval.c (eval_init): conses, lazy_conses and func_set_env registered
as intrinsics.

* txr.1: Documented.

1 files changed, 3 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 467866ec..41465747 100644
--- a/lib.h
+++ b/lib.h
@@ -366,6 +366,8 @@ val third(val cons);
 val fourth(val cons);
 val fifth(val cons);
 val sixth(val cons);
+val conses(val list);
+val lazy_conses(val list);
 val listref(val list, val ind);
 val *listref_l(val list, val ind);
 val *tail(val cons);
@@ -597,6 +599,7 @@ val func_n4o(val (*fun)(val, val, val, val), int reqargs);
 val func_interp(val env, val form);
 val func_get_form(val fun);
 val func_get_env(val fun);
+val func_set_env(val fun, val env);
 val functionp(val);
 val interp_fun_p(val);
 val funcall(val fun);