summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-01-01 10:27:19 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-01-01 10:27:19 -0800
commit370a210171061ae9c116b37895923c6f20733a7b (patch)
treef2681363f339952d937476083b61952cb830823d
parent14d97b54e72ff2f0f6b13bc70418a3eaff7865e4 (diff)
downloadtxr-370a210171061ae9c116b37895923c6f20733a7b.tar.gz
txr-370a210171061ae9c116b37895923c6f20733a7b.tar.bz2
txr-370a210171061ae9c116b37895923c6f20733a7b.zip
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.
-rw-r--r--eval.c6
1 files 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));