1 files changed, 10 insertions, 1 deletions
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))))