summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--share/txr/stdlib/match.tl2
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))