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

handle symbol module path as extra path

Browse Source 
svn: r12757
This commit is contained in:
Matthew Flatt 2008-12-09 21:57:50 +00:00
parent 41d0609ad2
commit 149d3a24cb
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/compiler/embed-unit.ss
View File

@ -326,6 +326,11 @@
(or (and (pair? a) (or (and (pair? a)
(eq? 'lib (car a))) (eq? 'lib (car a)))
(symbol? a))) (symbol? a)))
(define (symbol-to-lib-form l)
(if (symbol? l)
`(lib ,(symbol->string l))
l))
(define (unix-style-split p) (define (unix-style-split p)
(let ([m (regexp-match #rx"^([^/]*)/(.*)$" p)]) (let ([m (regexp-match #rx"^([^/]*)/(.*)$" p)])
@ -423,7 +428,7 @@
(not (and (pair? x) (not (and (pair? x)
(eq? 'quote (car x)))))) (eq? 'quote (car x))))))
(apply append (map cdr importss)))] (apply append (map cdr importss)))]
[extra-paths (get-extra-imports filename code)]) [extra-paths (map symbol-to-lib-form (get-extra-imports filename code))])
(let ([sub-files (map (lambda (i) (normalize (resolve-module-path-index i filename))) (let ([sub-files (map (lambda (i) (normalize (resolve-module-path-index i filename)))
all-file-imports)] all-file-imports)]
[sub-paths (map (lambda (i) (collapse-module-path-index i module-path)) [sub-paths (map (lambda (i) (collapse-module-path-index i module-path))