From c5fc92c75205051ce01bba1781cd1c4ba0907765 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Tue, 11 Jan 2022 21:52:57 -0800
Subject: Make bindings visible while a guard is evaluated.

The current implementation repeats the bindings twice, but I guess it's
fine. It seems to work.
---
 match-test.csc | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'match-test.csc')

diff --git a/match-test.csc b/match-test.csc
index bbecce4..31e7afa 100644
--- a/match-test.csc
+++ b/match-test.csc
@@ -74,5 +74,14 @@
     (match 'b
       ((! 'a) 1)
       ((! 'b) (when #f) 2)
-      ((! 'b) 3)
+      ((! 'b) (when #t) 3)
       (_ 4))))
+
+
+(test match-when-depending-on-pattern-variable
+  (assert-equal
+    2
+    (match 10
+      (n (when (= 1 n)) 1)
+      (n (when (= 10 n)) 2)
+      (_ 3))))
-- 
cgit v1.3.1