From 1d67f058fc7aa4d859d53720fd92207a99abe168 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Fri, 16 May 2008 19:55:28 +0000
Subject: [PATCH] New test for non-linearity + ...

svn: r9869
---
 collects/tests/match/examples.ss | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/collects/tests/match/examples.ss b/collects/tests/match/examples.ss
index cebe591dfe..c45210ba88 100644
--- 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)]))
 
 
    ))
\ No newline at end of file