diff options
| -rw-r--r-- | share/txr/stdlib/match.tl | 4 |
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 |