New test for non-linearity + ...

svn: r9869
2008-05-16 19:55:28 +00:00 · 2008-05-16 19:55:28 +00:00 · 1d67f058fc
commit 1d67f058fc
parent 87f8e830b6
1 changed files with 4 additions and 0 deletions
--- a/collects/tests/match/examples.ss
+++ b/collects/tests/match/examples.ss
@ -556,6 +556,10 @@
                                        [(list-no-order 1 2 3 rest ... e) rest]
                                        [_ 'no])))
                'no))
+   (comp '((2 4) (2 1))   
+         (match '(3 2 4 3 2 1)
+           [(list x y ... x z ...) 
+            (list y z)]))


   ))