From 0d7d19d4761f1385a24e65082b10a46288e87f5a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 9 Feb 2021 20:20:25 -0800
Subject: 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.
---
 share/txr/stdlib/match.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.3