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

fixed up requires a little more

Browse Source 
svn: r3424
This commit is contained in:
Robby Findler 2006-06-20 20:59:12 +00:00
parent ff4470fa2e
commit af69dc81f5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/drscheme/syncheck.ss
View File

@ -1900,12 +1900,14 @@ If the namespace does not, they are colored the unbound color.
;; trim-require-prefix : syntax -> syntax ;; trim-require-prefix : syntax -> syntax
(define (trim-require-prefix require-spec) (define (trim-require-prefix require-spec)
(syntax-case* require-spec (prefix all-except rename only) symbolic-compare? (syntax-case* require-spec (only prefix all-except prefix-all-except rename) symbolic-compare?
[(only module-name identifer ...)
(syntax module-name)]
[(prefix identifier module-name) [(prefix identifier module-name)
(syntax module-name)] (syntax module-name)]
[(all-except module-name identifer ...) [(all-except module-name identifer ...)
(syntax module-name)] (syntax module-name)]
[(only module-name identifer ...) [(prefix-all-except module-name identifer ...)
(syntax module-name)] (syntax module-name)]
[(rename module-name local-identifer exported-identifer) [(rename module-name local-identifer exported-identifer)
(syntax module-name)] (syntax module-name)]