From b6fdf456e413412aaa7cd132b1f340b5b706eddd Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 2 Jan 2012 10:03:03 -0800 Subject: * eval.c (eval_init): Fix regression introduced in 2011-12-29 commit. We can't use mod_s, because the module which sets up that variable is not yet initialized. --- ChangeLog | 6 ++++++ eval.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 87e53de9..d59677a1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2012-01-02 Kaz Kylheku + + * eval.c (eval_init): Fix regression introduced in + 2011-12-29 commit. We can't use mod_s, because the module + which sets up that variable is not yet initialized. + 2012-01-01 Kaz Kylheku Make C globals in TXR Lisp properly assignable, so that for instance diff --git a/eval.c b/eval.c index b9ff8197..fee3a50a 100644 --- a/eval.c +++ b/eval.c @@ -1286,7 +1286,7 @@ void eval_init(void) reg_fun(intern(lit("*"), user_package), func_n0v(mulv)); reg_fun(intern(lit("abs"), user_package), func_n1(abso)); reg_fun(intern(lit("trunc"), user_package), func_n2(trunc)); - reg_fun(mod_s, func_n2(mod)); + reg_fun(intern(lit("mod"), user_package), func_n2(mod)); reg_fun(intern(lit("expt"), user_package), func_n0v(exptv)); reg_fun(intern(lit("exptmod"), user_package), func_n3(exptmod)); reg_fun(intern(lit("sqrt"), user_package), func_n1(isqrt)); -- cgit v1.2.3