diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-01-23 22:40:52 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-01-23 22:40:52 -0800 |
commit | 2f4e1ba3ba68c2b5c0f92778352866d6ed9959b0 (patch) | |
tree | 1a0e294cd0bbc4f1c1fe09c2bec2f856d724d845 /eval.c | |
parent | 519c0c3622417251d6cdff828547a6bb74e6b4b9 (diff) | |
download | txr-2f4e1ba3ba68c2b5c0f92778352866d6ed9959b0.tar.gz txr-2f4e1ba3ba68c2b5c0f92778352866d6ed9959b0.tar.bz2 txr-2f4e1ba3ba68c2b5c0f92778352866d6ed9959b0.zip |
Support keyword params via :key param list macro.
* eval.c (expand_param_macro): Use lisplib_try_load to retry
failed parameter macro lookup, thereby supporting auto-loading
of modules that define parameter macros.
* lisplib.c (keyparams_set_entries, keyparams_instantiate): New static
functions.
(lisplib_init): Support autoloading of keyparams.tl via new
functions.
* share/txr/stdlib/keyparams.tl: New file.
* txr.1: Documented :key param list macro.
* checkman.txr: Support "Parameter list macro" documentation
section type.
Diffstat (limited to 'eval.c')
-rw-r--r-- | eval.c | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -941,9 +941,13 @@ static val expand_param_macro(val params, val body, val menv, val form) sym == env_k ||sym == colon_k) return cons(params, body); - if (!pmac) - eval_error(form, lit("~s: keyword ~s has no param macro binding"), - car(form), sym, nao); + if (!pmac) { + lisplib_try_load(sym); + pmac = gethash(pm_table, sym); + if (!pmac) + eval_error(form, lit("~s: keyword ~s has no param macro binding"), + car(form), sym, nao); + } { val prest = cdr(params); |