summaryrefslogtreecommitdiffstats
path: root/share
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-04-19 07:56:35 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-04-19 07:56:35 -0700
commit570de4a6b80e5029f3df3b8a2e022e5ec9087b37 (patch)
treedca4d10a9265518fa4ab8e6546b3df5b648cb839 /share
parentf19514a211ad89f32876f6090dcc2212126b913c (diff)
downloadtxr-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.tl2
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)))