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

improve expansion of 'case' for a clause with 2 or 3 values

Browse Source 
svn: r15428
This commit is contained in:
Matthew Flatt 2009-07-11 04:03:20 +00:00
parent ec9ce0ed04
commit b2e39baa26
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,10 +9,13 @@
(define-syntax case-test (define-syntax case-test
(lambda (x) (lambda (x)
(syntax-case x () (syntax-case x ()
;; For up to 3 elements, inline `eqv?' tests:
[(_ x (k)) [(_ x (k))
(if (symbol? (syntax-e #'k)) (syntax (eqv? x 'k))]
(syntax (eq? x 'k)) [(_ x (k1 k2))
(syntax (eqv? x 'k)))] (syntax (let ([tmp x]) (if (eqv? x 'k1) #t (eqv? x 'k2))))]
[(_ x (k1 k2 k3))
(syntax (let ([tmp x]) (if (eqv? x 'k1) #t (if (eqv? x 'k2) #t (eqv? x 'k3)))))]
[(_ x (k ...)) [(_ x (k ...))
(syntax (memv x '(k ...)))]))) (syntax (memv x '(k ...)))])))