diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-04-19 07:56:35 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-04-19 07:56:35 -0700 |
commit | 570de4a6b80e5029f3df3b8a2e022e5ec9087b37 (patch) | |
tree | dca4d10a9265518fa4ab8e6546b3df5b648cb839 /share | |
parent | f19514a211ad89f32876f6090dcc2212126b913c (diff) | |
download | txr-570de4a6b80e5029f3df3b8a2e022e5ec9087b37.tar.gz txr-570de4a6b80e5029f3df3b8a2e022e5ec9087b37.tar.bz2 txr-570de4a6b80e5029f3df3b8a2e022e5ec9087b37.zip |
defmatch: pass form to mac-param-bind.
* share/txr/stdlib/match.tl (defmatch): Pass *match-form* to
mac-param-bind so that the context is available to defmatch
macros via the :form parameter.
* txr.1: Documented use of :form in defmatch.
Diffstat (limited to 'share')
-rw-r--r-- | share/txr/stdlib/match.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index d8af1baf..91885472 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -751,7 +751,7 @@ ^(progn (sethash *match-macro* ',name (lambda (,args) - (mac-param-bind ,args + (mac-param-bind *match-form* (,name-dummy ,*destructuring-args) ,args ,*body))) ',name))) |