summaryrefslogtreecommitdiffstats
path: root/lib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lib.c')
-rw-r--r--lib.c12
1 files changed, 12 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 12f024cc..4ee9cd59 100644
--- a/lib.c
+++ b/lib.c
@@ -4863,6 +4863,18 @@ val lcons_fun(val lcons)
return lcons->lc.func;
}
+val lcons_force(val lcons)
+{
+ val iter = lcons;
+
+ while (type(iter) == LCONS && iter->lc.func) {
+ lcons_force(car(iter));
+ iter = us_cdr(iter);
+ }
+
+ return lcons;
+}
+
val list(val first, ...)
{
va_list vl;