Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Patch from Per Bothner for => in non-terminal case clauses.

Browse source
This commit is contained in:
Alex Shinn 2013-09-25 09:27:38 +09:00
parent f56c89fbc1
commit d0360178f1
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/r7rs-tests.scm
View file

@ -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)))