From e6d46fd792dc6dc67e23a8ffa3ae6fe11dbc1845 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 1 Jan 2021 10:27:19 -0800 Subject: eval: use symbol vars for registering if, and or. * eval.c (eval_init): Use if_s, or_s, and_s instead of wastefully calling intern. --- eval.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/eval.c b/eval.c index a19524a6..d5307958 100644 --- a/eval.c +++ b/eval.c @@ -6722,9 +6722,9 @@ void eval_init(void) reg_fun(intern(lit("iffi"), user_package), func_n3o(iffi, 2)); reg_fun(intern(lit("dup"), user_package), func_n1(dupl)); reg_fun(intern(lit("flipargs"), user_package), func_n1(swap_12_21)); - reg_fun(intern(lit("if"), user_package), func_n3o(if_fun, 2)); - reg_fun(intern(lit("or"), user_package), func_n0v(or_fun)); - reg_fun(intern(lit("and"), user_package), func_n0v(and_fun)); + reg_fun(if_s, func_n3o(if_fun, 2)); + reg_fun(or_s, func_n0v(or_fun)); + reg_fun(and_s, func_n0v(and_fun)); reg_fun(intern(lit("retf"), user_package), func_n1(retf)); reg_fun(intern(lit("apf"), user_package), func_n1v(apf)); reg_fun(intern(lit("ipf"), user_package), func_n1v(ipf)); -- cgit v1.2.3