fix a bug in a syntax-case keywords spec
closes PR 13237 (turns out not to be planet-specific)
This commit is contained in:
parent
2253e90479
commit
475822b44a
|
@ -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]
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user