diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-09 20:20:25 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-09 20:20:25 -0800 |
| commit | 0d7d19d4761f1385a24e65082b10a46288e87f5a (patch) | |
| tree | 9ee12f20faeac3a843e3ab4bca3eb8603b216fd6 | |
| parent | 3e8b3c556d559ce29afbd2f4e6260091da6b8daa (diff) | |
| download | txr-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.tl | 2 |
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) |