diff options
| -rw-r--r-- | share/txr/stdlib/match.tl | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index 5d67ef6a..3e254f65 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -391,8 +391,6 @@ (push vm.obj-var vm.vars) (push ^(gethash ,obj-var ,key-var-sym ,hash-alt-val) vm.var-exprs) - (set vm.test-expr ^(and (neq ,vm.obj-var ,hash-alt-val) - ,vm.test-expr)) vm)) ((and key-pat-p val-pat-p) (set need-alist-p t) |