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 | 2c861d322e3e0d01d0e9442e833f3015c252a146 (patch) | |
| tree | 13f853fb5a0d2263c64bc291d0abb6d6b5560d87 | |
| parent | 9ff4198548519710f688fbe97e4a7267751cd840 (diff) | |
| download | txr-2c861d322e3e0d01d0e9442e833f3015c252a146.tar.gz txr-2c861d322e3e0d01d0e9442e833f3015c252a146.tar.bz2 txr-2c861d322e3e0d01d0e9442e833f3015c252a146.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.
| -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 |