From 1ddcfabd1b389bbf1512cf405a10dbde6efd8101 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 29 Jan 2017 08:14:40 -0800 Subject: Expose expand_params as sys:expand-params. * eval.c (eval_init): Register sys:expand-params intrinsic bound to expand_params. --- eval.c | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.c') diff --git a/eval.c b/eval.c index 4ccc6f62..a4537e4b 100644 --- a/eval.c +++ b/eval.c @@ -5604,6 +5604,7 @@ void eval_init(void) func_n2o(macroexpand_1, 1)); reg_fun(intern(lit("macroexpand"), user_package), func_n2o(macroexpand, 1)); + reg_fun(intern(lit("expand-params"), system_package), func_n5(expand_params)); reg_fun(intern(lit("constantp"), user_package), func_n2o(constantp, 1)); reg_fun(intern(lit("make-env"), user_package), func_n3o(make_env_intrinsic, 0)); reg_fun(intern(lit("env-fbind"), user_package), func_n3(env_fbind)); -- cgit v1.2.3