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

fix a bug in a syntax-case keywords spec

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/syncheck/traversals.rkt
View File

@ -630,7 +630,7 @@
[else (eq? var id)])) [else (eq? var id)]))
(define (phaseless-spec->raw-module-path stx) (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] [(only raw-module-path id ...) #'raw-module-path]
[(prefix prefix-id raw-module-path) #'raw-module-path] [(prefix prefix-id raw-module-path) #'raw-module-path]
[(all-except raw-module-path id ...) #'raw-module-path] [(all-except raw-module-path id ...) #'raw-module-path]

10
collects/tests/drracket/syncheck-test.rkt
View File

@ -1000,6 +1000,16 @@
'(((26 29) (47 50)) '(((26 29) (47 50))
((6 17) (19 25)))) ((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)" (build-rename-test "(lambda (x) x)"
9 9
"x" "x"