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/eval.c b/eval.c
index 095313ac..4125d33a 100644
--- a/eval.c
+++ b/eval.c
@@ -7294,6 +7294,7 @@ void eval_init(void)
   reg_fun(intern(lit("lcons-fun"), user_package), func_n1(lcons_fun));
   reg_fun(intern(lit("lcons-car"), user_package), func_n1(lcons_car));
   reg_fun(intern(lit("lcons-cdr"), user_package), func_n1(lcons_cdr));
+  reg_fun(intern(lit("lcons-force"), user_package), func_n1(lcons_force));
   reg_fun(car_s, car_f);
   reg_fun(cdr_s, cdr_f);
   reg_fun(rplaca_s, func_n2(rplaca));