From 9caae19a42d87582a82c3d855b7dc59fe6427e7b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 27 Feb 2014 23:29:19 -0800 Subject: * eval.c (delay_s): Global variable removed. (eval_init): Initialiation of delay_s removed. Symbol now interned in reg_mac call for registering me_delay . * genvim.txr: Updated to recognize a reg_mac call with intern. --- ChangeLog | 9 +++++++++ eval.c | 5 ++--- genvim.txr | 2 ++ 3 files changed, 13 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index f3589a77..9cef4a5d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +2014-02-27 Kaz Kylheku + + * eval.c (delay_s): Global variable removed. + (eval_init): Initialiation of delay_s removed. + Symbol now interned in reg_mac call for registering me_delay . + + * genvim.txr: Updated to recognize a reg_mac call + with intern. + 2014-02-27 Kaz Kylheku * txr.1: Improved documentation for the dwim operator. diff --git a/eval.c b/eval.c index 9cb75aa7..bc01cdf3 100644 --- a/eval.c +++ b/eval.c @@ -86,7 +86,7 @@ val append_each_s, append_each_star_s; val dohash_s; val uw_protect_s, return_s, return_from_s; val list_s, append_s, apply_s, gen_s, gun_s, generate_s, rest_s; -val delay_s, promise_s, op_s; +val promise_s, op_s; val hash_lit_s, hash_construct_s; val vector_lit_s, vector_list_s; val macro_time_s, with_saved_vars_s, macrolet_s; @@ -3044,7 +3044,6 @@ void eval_init(void) gen_s = intern(lit("gen"), user_package); gun_s = intern(lit("gun"), user_package); generate_s = intern(lit("generate"), user_package); - delay_s = intern(lit("delay"), user_package); promise_s = intern(lit("promise"), system_package); op_s = intern(lit("op"), user_package); do_s = intern(lit("do"), user_package); @@ -3108,7 +3107,7 @@ void eval_init(void) reg_mac(gen_s, me_gen); reg_mac(gun_s, me_gun); - reg_mac(delay_s, me_delay); + reg_mac(intern(lit("delay"), user_package), me_delay); reg_mac(op_s, me_op); reg_mac(do_s, me_op); reg_mac(qquote_s, me_qquote); diff --git a/genvim.txr b/genvim.txr index 42359f18..c3565859 100644 --- a/genvim.txr +++ b/genvim.txr @@ -17,6 +17,8 @@ void eval_init(void) @ (bind txl-sym `@{txl-sym-nostar}*`) @ (or) reg_@/op|mac/(@{txl-sym}_s,@(skip) +@ (or) + reg_mac(intern(lit("@{txl-sym}"),@(skip) @ (or) reg_fun(intern(lit("@{txl-sym}"),@(skip) @ (or) -- cgit v1.2.3