From fca47effb1490e6308be3f9600fe782f3cdea862 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 23 Jan 2014 00:17:33 -0800
Subject: * 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.
---
 lib.h | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib.h')

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