summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2022-10-13 06:57:48 -0700
committerKaz Kylheku <kaz@kylheku.com>2022-10-13 06:57:48 -0700
commitae644e2046349d2fdb83da88a33bedb565b99dce (patch)
tree89b837c6b5cf2e645d20b05731e85186a72050d0 /eval.c
parent3c4bf5fa931c0620473efe8530ed2de786292af5 (diff)
downloadtxr-ae644e2046349d2fdb83da88a33bedb565b99dce.tar.gz
txr-ae644e2046349d2fdb83da88a33bedb565b99dce.tar.bz2
txr-ae644e2046349d2fdb83da88a33bedb565b99dce.zip
New function: macroexpand-params.
* stdlib/pmac.tl (macroexpand-params): New function, implemented using newly exposed sys:expand-param-macro. * autoload.c (pmac_set_entries): Trigger pmac.tl autload on macroexpand-params symbol. * eval.c (eval_init): Register existing expand_param_macro function as sys:expand-param-macro. * txr.1: Documented. * stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index acf3b2e2..8d7ea7e4 100644
--- a/eval.c
+++ b/eval.c
@@ -7107,6 +7107,7 @@ void eval_init(void)
reg_fun(intern(lit("macroexpand-lisp1"), user_package),
func_n2o(macroexpand_lisp1, 1));
reg_fun(intern(lit("expand-params"), system_package), func_n5(expand_params));
+ reg_fun(intern(lit("expand-param-macro"), system_package), func_n4(expand_param_macro));
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));