diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-01 10:27:19 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-01 10:27:19 -0800 |
commit | 370a210171061ae9c116b37895923c6f20733a7b (patch) | |
tree | f2681363f339952d937476083b61952cb830823d | |
parent | 14d97b54e72ff2f0f6b13bc70418a3eaff7865e4 (diff) | |
download | txr-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.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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)); |