summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c10
1 files changed, 10 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 52197df1..51c584b0 100644
--- a/lib.c
+++ b/lib.c
@@ -1002,6 +1002,16 @@ val make_lazy_cons(val func)
return obj;
}
+val make_half_lazy_cons(val func, val car)
+{
+ val obj = make_obj();
+ obj->lc.type = LCONS;
+ obj->lc.car = car;
+ obj->lc.cdr = nil;
+ obj->lc.func = func;
+ return obj;
+}
+
val lcons_fun(val lcons)
{
type_check(lcons, LCONS);