From e17a47ac47f9c4c4aa6eccad76942d644c912faa Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 10 Apr 2015 06:17:43 -0700 Subject: * eval.c (eval_init): There is an until_s global variable, so no need to intern the symbol when registering me_until. --- ChangeLog | 5 +++++ eval.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 72764526..e6e383f0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2015-04-10 Kaz Kylheku + + * eval.c (eval_init): There is an until_s global variable, so + no need to intern the symbol when registering me_until. + 2015-04-09 Kaz Kylheku Fork and wait support. diff --git a/eval.c b/eval.c index c3e7d8ba..1236a84d 100644 --- a/eval.c +++ b/eval.c @@ -3935,7 +3935,7 @@ void eval_init(void) reg_mac(when_s, me_when); reg_mac(intern(lit("unless"), user_package), me_unless); reg_mac(while_s, me_while); - reg_mac(intern(lit("until"), user_package), me_until); + reg_mac(until_s, me_until); reg_mac(quasilist_s, me_quasilist); reg_mac(flet_s, me_flet_labels); reg_mac(labels_s, me_flet_labels); -- cgit v1.2.3