diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/match.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/match.tl b/share/txr/stdlib/match.tl index f68a542e..70f19665 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -661,7 +661,7 @@ (set exp ^(unless ,rest-temp ,exp))) (unless (zerop counter) - (set exp ^(unless ,result-temp ,exp))) + (set exp ^(unless ,matched-p-temp ,exp))) exp)))) ^(lambda (,*fix-arg-temps ,*(if opt-arg-temps |