New function: lcons-force.

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

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

* txr.1: Documented.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index b4b1df87..9378ce02 100644
--- a/lib.h
+++ b/lib.h
@@ -933,6 +933,7 @@ void rcyc_cons(val cons);
 void rcyc_empty(void);
 val lcons_fun(val lcons);
 INLINE val us_lcons_fun(val lcons) { return lcons->lc.func; }
+val lcons_force(val lcons);
 val list(val first, ...); /* terminated by nao */
 val listv(varg );
 val consp(val obj);