From 7b587fe3450c949f454778bfaf71870a5a872f6b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 24 May 2021 08:40:15 -0700 Subject: matcher: fix funny comma placement. * share/txr/stdlib/match.tl (compile-hash-match): Fix unquoting comma that had been strangely moved to the previous line. --- share/txr/stdlib/match.tl | 4 ++-- 1 file 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 -- cgit v1.2.3