From 855558887a562294b546e037d11f1951671b45a3 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 2 Mar 2019 10:18:22 -0800 Subject: eval: introduce variable for usr:var symbol. * eval.c (usr_var_c): New symbol variable. The existing var_s hold sys:var, not usr:var. (eval_init): var symbol interned in usr package. --- eval.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'eval.c') diff --git a/eval.c b/eval.c index db883365..0a35378b 100644 --- a/eval.c +++ b/eval.c @@ -73,7 +73,7 @@ val dyn_env; val eval_error_s; val dwim_s, progn_s, prog1_s, let_s, let_star_s, lambda_s, call_s, dvbind_s; -val sys_catch_s, handler_bind_s, cond_s, if_s, iflet_s, when_s; +val sys_catch_s, handler_bind_s, cond_s, if_s, iflet_s, when_s, usr_var_s; val defvar_s, defvarl_s, defparm_s, defparml_s, defun_s, defmacro_s, macro_s; val tree_case_s, tree_bind_s, mac_param_bind_s; val sys_mark_special_s; @@ -6064,6 +6064,7 @@ void eval_init(void) equal_s = intern(lit("equal"), user_package); if_s = intern(lit("if"), user_package); when_s = intern(lit("when"), user_package); + usr_var_s = intern(lit("var"), user_package); iflet_s = intern(lit("iflet"), user_package); defvar_s = intern(lit("defvar"), user_package); defvarl_s = intern(lit("defvarl"), user_package); -- cgit v1.2.3