summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--share/txr/stdlib/match.tl4
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl
index a069e322..0d99e7cf 100644
--- a/share/txr/stdlib/match.tl
+++ b/share/txr/stdlib/match.tl
@@ -505,8 +505,8 @@
vm.(add-guards-pre
(new match-guard
pure-temps (list vm.obj-var)
- pure-temp-exprs ^((gethash ,obj-var ',key,
- hash-alt-val))
+ pure-temp-exprs ^((gethash ,obj-var ',key
+ ,hash-alt-val))
test-expr ^(neq ,vm.obj-var ,hash-alt-val)))
vm)))))))
(guard (new match-guard