suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix broken 'case' improvement!

Browse Source 
svn: r15429
This commit is contained in:
Matthew Flatt 2009-07-11 04:04:19 +00:00
parent b2e39baa26
commit 2b5f12b6fa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/private/more-scheme.ss
View File

@ -13,9 +13,9 @@
[(_ x (k))
(syntax (eqv? x 'k))]
[(_ x (k1 k2))
(syntax (let ([tmp x]) (if (eqv? x 'k1) #t (eqv? x 'k2))))]
(syntax (let ([tmp x]) (if (eqv? tmp 'k1) #t (eqv? tmp 'k2))))]
[(_ x (k1 k2 k3))
(syntax (let ([tmp x]) (if (eqv? x 'k1) #t (if (eqv? x 'k2) #t (eqv? x 'k3)))))]
(syntax (let ([tmp x]) (if (eqv? tmp 'k1) #t (if (eqv? tmp 'k2) #t (eqv? tmp 'k3)))))]
[(_ x (k ...))
(syntax (memv x '(k ...)))])))