From d0360178f135f02e1f4f4acf07a53b59dc12b2ff Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 25 Sep 2013 09:27:38 +0900 Subject: [PATCH] Patch from Per Bothner for => in non-terminal case clauses. --- tests/r7rs-tests.scm | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/tests/r7rs-tests.scm b/tests/r7rs-tests.scm index 29be608c..d48dba28 100644 --- a/tests/r7rs-tests.scm +++ b/tests/r7rs-tests.scm @@ -117,6 +117,15 @@ ((w y) 'semivowel) (else => (lambda (x) x)))) +(test '((other . z) (semivowel . y) (other . x) + (semivowel . w) (vowel . u)) + (map (lambda (x) + (case x + ((a e i o u) => (lambda (w) (cons 'vowel w))) + ((w y) (cons 'semivowel x)) + (else => (lambda (w) (cons 'other w))))) + '(z y x w u))) + (test #t (and (= 2 2) (> 2 1))) (test #f (and (= 2 2) (< 2 1))) (test '(f g) (and 1 2 'c '(f g)))