conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

in syntax-rules, literals is prior to underscore

This commit is contained in:
zeptometer 2014-08-06 21:47:21 +09:00
parent 4f59e07539
commit a35dd8463c
1 changed files with 2 additions and 2 deletions
piclib/scheme
base.scm

4
piclib/scheme/base.scm
View File

@ -410,13 +410,13 @@
(define (compile-match ellipsis literals pattern) (define (compile-match ellipsis literals pattern)
(letrec ((compile-match-base (letrec ((compile-match-base
(lambda (pattern) (lambda (pattern)
(cond ((compare pattern (r '_)) (values #f '())) (cond ((member pattern literals compare)
((member pattern literals compare)
(values (values
`(,_if (,_and (,_symbol? expr) (cmp expr (rename ',pattern))) `(,_if (,_and (,_symbol? expr) (cmp expr (rename ',pattern)))
#f #f
(exit #f)) (exit #f))
'())) '()))
((compare pattern (r '_)) (values #f '()))
((and ellipsis (compare pattern ellipsis)) ((and ellipsis (compare pattern ellipsis))
(values `(,_syntax-error "invalid pattern") '())) (values `(,_syntax-error "invalid pattern") '()))
((symbol? pattern) ((symbol? pattern)