Improve the match syntax for constants.

I guess you can pattern match using quote as a literal.
That's pretty cool.

1 files changed, 21 insertions, 21 deletions

diff --git a/csc/match-test.csc b/csc/match-test.csc
index bcd0d35..8323952 100644
--- a/csc/match-test.csc
+++ b/csc/match-test.csc
@@ -7,11 +7,11 @@
   (assert-equal
     3
     (match 3
-      ((! 0) 0)
-      ((! 1) 1)
-      ((! 2) 2)
-      ((! 3) 3)
-      (_ 4))))
+      ('0 0)
+      ('1 1)
+      ('2 2)
+      ('3 3)
+      ('4 4))))
 
 
 (test match-list
@@ -19,9 +19,9 @@
     2
     (match '(1 2 3)
       ('() 0)
-      (((! 1) (! 2)) 1)
-      (((! 1) (! 2) (! 3)) 2)
-      (((! 1) (! 2) (! 3) (! 4)) 3)
+      (('1 '2) 1)
+      (('1 '2 '3) 2)
+      (('1 '2 '3 '4) 3)
       (_ 4))))
 
 
@@ -29,7 +29,7 @@
   (assert-equal
     2
     (match '(1 2 3)
-      (((! 1) x (! 3)) x))))
+      (('1 x '3) x))))
 
 
 (test match-destructuring
@@ -45,8 +45,8 @@
     2
     (match '(1 2 3)
       ((_ _ _ _) 0)
-      (((! 2) _ _) 1)
-      (((! 1) _ _) 2)
+      (('2 _ _) 1)
+      (('1 _ _) 2)
       (_ 3))))
 
 
@@ -54,8 +54,8 @@
   (assert-equal
     2
     (match '(1 2 3)
-      (((! 2) . _) 1)
-      (((! 1) . x) (car x))
+      (('2 . _) 1)
+      (('1 . x) (car x))
       (_ 3))))
 
 
@@ -63,8 +63,8 @@
   (assert-equal
     2
     (match 'b
-      ((! 'a) 1)
-      ((! 'b) 2)
+      ('a 1)
+      ('b 2)
       (_ 3))))
 
 
@@ -72,9 +72,9 @@
   (assert-equal
     3
     (match 'b
-      ((! 'a) 1)
-      ((! 'b) when #f 2)
-      ((! 'b) when #t 3)
+      ('a 1)
+      ('b when #f 2)
+      ('b when #t 3)
       (_ 4))))
 
 
@@ -105,7 +105,7 @@
 
 (test match-record-type-any
   (assert-equal
-    #t
+    2
     (match '(1 2 3)
-      ((% %test-record-type . _) #f)
-      ((! '(1 2 3)) #t))))
+      ((% %test-record-type . _) 1)
+      ('(1 2 3) 2))))