diff options
| -rw-r--r-- | eval.c | 8 | ||||
| -rw-r--r-- | tests/009/json.txr | 2 |
2 files changed, 6 insertions, 4 deletions
@@ -5194,9 +5194,11 @@ void eval_init(void) reg_varl(keyword_package_s = intern(lit("keyword-package"), user_package_var), keyword_package_var); - reg_varl(intern(lit("*user-package*"), user_package), user_package_var); - reg_varl(intern(lit("*system-package*"), user_package), system_package_var); - reg_varl(intern(lit("*keyword-package*"), user_package), keyword_package_var); + if (opt_compat && opt_compat <= 156) { + reg_varl(intern(lit("*user-package*"), user_package), user_package_var); + reg_varl(intern(lit("*system-package*"), user_package), system_package_var); + reg_varl(intern(lit("*keyword-package*"), user_package), keyword_package_var); + } reg_fun(intern(lit("make-sym"), user_package), func_n1(make_sym)); reg_fun(intern(lit("gensym"), user_package), func_n1o(gensym, 0)); diff --git a/tests/009/json.txr b/tests/009/json.txr index e450b6bb..5c2732e8 100644 --- a/tests/009/json.txr +++ b/tests/009/json.txr @@ -53,7 +53,7 @@ @(define keyword (k))@\ @(local tok)@\ @(all)@(ws)@{tok /true|false|null/}@(trailer)@/[^A-Za-z0-9_]/@(end)@(ws)@\ - @(bind k @(intern tok *keyword-package*))@\ + @(bind k @(intern tok keyword-package))@\ @(end) @; @; Recognize an object: a collection of string/value pairs, |