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);