summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-02-09 20:20:25 -0800
committerKaz Kylheku <kaz@kylheku.com>2021-02-09 20:20:25 -0800
commit0d7d19d4761f1385a24e65082b10a46288e87f5a (patch)
tree9ee12f20faeac3a843e3ab4bca3eb8603b216fd6
parent3e8b3c556d559ce29afbd2f4e6260091da6b8daa (diff)
downloadtxr-0d7d19d4761f1385a24e65082b10a46288e87f5a.tar.gz
txr-0d7d19d4761f1385a24e65082b10a46288e87f5a.tar.bz2
txr-0d7d19d4761f1385a24e65082b10a46288e87f5a.zip
matcher: diagnose syntax problems in hash pattern.
* share/txr/stdlib/match.tl (compile-hash-match): Use mac-param-bind instead of tree-bind, like in the other functions.
-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 d31b0fdb..ad983bb0 100644
--- a/share/txr/stdlib/match.tl
+++ b/share/txr/stdlib/match.tl
@@ -463,7 +463,7 @@
guard-chain (list guard)))))
(defun compile-hash-match (hash-expr obj-var var-list)
- (tree-bind (op . pairs) hash-expr
+ (mac-param-bind *match-form* (op . pairs) hash-expr
(let* ((hash-alist-var (gensym "hash-alist-"))
(hash-alt-val ^',(gensym "alt"))
(need-alist-p nil)