From 600ec3af3f742f361164aac53cda6b02b90e5173 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 27 Jan 2021 22:47:00 -0800 Subject: matcher: remove superflous test-expr in hash op. * share/txr/stdlib/match.tl (compile-hash-match): In the trivial key case, we are wastefully installing the same expression as both a guard in the guard-chain and as a test-expr. We should not be frobbing vm.test-expr. --- share/txr/stdlib/match.tl | 2 -- 1 file changed, 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) -- cgit v1.2.3