From fba3be24f44ed3f9adb6d8371ac1b04427f6bd21 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') 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)); -- cgit v1.2.3