diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-01-21 20:27:38 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-01-21 20:27:38 -0800 |
| commit | 143a9df7c48235a16c8c41a92281701bd5d8c2ff (patch) | |
| tree | f04fb7c533789fec4c5f88d5f677ba878c5083c2 /share | |
| parent | 92be6184625250720f874a4c2219a2e5f2f1b70c (diff) | |
| download | txr-143a9df7c48235a16c8c41a92281701bd5d8c2ff.tar.gz txr-143a9df7c48235a16c8c41a92281701bd5d8c2ff.tar.bz2 txr-143a9df7c48235a16c8c41a92281701bd5d8c2ff.zip | |
matcher: when-match incorrect body treatment.
* share/txr/stdlib/match.tl (when-match): Replace incorrect if
with when.
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 b8287c55..55d9d6ef 100644 --- a/share/txr/stdlib/match.tl +++ b/share/txr/stdlib/match.tl @@ -340,7 +340,7 @@ ,*cm.(get-vars)) ,cm.(wrap-guards ^(progn ,*cm.(assignments) - (if ,cm.test-expr ,*body)))))) + (when ,cm.test-expr ,*body)))))) (defmacro if-match (:form *match-form* pat obj then : else) (let ((cm (compile-match pat)) |