New function: lcons-force.

* lib.[ch] (lcons_force): New function.

* eval.c (eval_init): Register lcons-force intrinsic.

* txr.1: Documented.

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;