From fba3be24f44ed3f9adb6d8371ac1b04427f6bd21 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 4 Apr 2024 07:33:54 -0700
Subject: New function: lcons-force.

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

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

* txr.1: Documented.
---
 lib.c | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'lib.c')

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