fix a bug in a syntax-case keywords spec

closes PR 13237 (turns out not to be planet-specific)
This commit is contained in:
Robby Findler 2012-11-22 13:53:09 -06:00
parent 2253e90479
commit 475822b44a
2 changed files with 11 additions and 1 deletions

View File

@ -630,7 +630,7 @@
[else (eq? var id)]))
(define (phaseless-spec->raw-module-path stx)
(syntax-case* stx (only prefix all-expect prefix-all-except rename) symbolic-compare?
(syntax-case* stx (only prefix all-except prefix-all-except rename) symbolic-compare?
[(only raw-module-path id ...) #'raw-module-path]
[(prefix prefix-id raw-module-path) #'raw-module-path]
[(all-except raw-module-path id ...) #'raw-module-path]

View File

@ -999,6 +999,16 @@
(")" default-color))
'(((26 29) (47 50))
((6 17) (19 25))))
(build-test "#lang racket/base\n(require '#%kernel)\npair?"
'(("#lang racket/base\n(" default-color)
("require" imported)
(" '#%kernel)\n" default-color)
("pair?" imported))
(list '((6 17) (19 26))
'((27 36) (38 43))))
(build-rename-test "(lambda (x) x)"
9