diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-05-24 08:40:15 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-05-24 08:40:15 -0700 |
| commit | 7b587fe3450c949f454778bfaf71870a5a872f6b (patch) | |
| tree | 13f853fb5a0d2263c64bc291d0abb6d6b5560d87 /share | |
| parent | 8f066b1f7975129d5560cd8ee68121bf824ea38e (diff) | |
| download | txr-7b587fe3450c949f454778bfaf71870a5a872f6b.tar.gz txr-7b587fe3450c949f454778bfaf71870a5a872f6b.tar.bz2 txr-7b587fe3450c949f454778bfaf71870a5a872f6b.zip | |
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.
Diffstat (limited to 'share')
| -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 |