diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-19 07:52:19 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-19 07:52:19 -0800 |
| commit | e37f1ea87a68cffdfb64d0bd9cd29404d1455757 (patch) | |
| tree | a476d8e346047a591fc0095aa6be9c11213f2615 /debug.c | |
| parent | 1236298b23b17937829e58a63e7d9e13059e49f8 (diff) | |
| download | txr-e37f1ea87a68cffdfb64d0bd9cd29404d1455757.tar.gz txr-e37f1ea87a68cffdfb64d0bd9cd29404d1455757.tar.bz2 txr-e37f1ea87a68cffdfb64d0bd9cd29404d1455757.zip | |
matcher: fix broken @(some) test case.
* share/txr/stdlib/match.tl (compile-loop-match): Introduce a
new guard, and bind the pattern's variables there. The main
compiled match now has an empty list of vars and var-exprs,
so there is no length mismatch. The nreversing of the
accumulated lists (only done in the @(and) case) is part of
the test-expr now.
Diffstat (limited to 'debug.c')
0 files changed, 0 insertions, 0 deletions