From 143a9df7c48235a16c8c41a92281701bd5d8c2ff Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 21 Jan 2021 20:27:38 -0800
Subject: matcher: when-match incorrect body treatment.

* share/txr/stdlib/match.tl (when-match): Replace incorrect if
with when.
---
 share/txr/stdlib/match.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'share')

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))
-- 
cgit v1.2.3