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

fix construction of resolved module path in DrScheme (PR 10859)

Browse Source 
svn: r18803
This commit is contained in:
Matthew Flatt 2010-04-12 23:28:40 +00:00
parent 25a817e4aa
commit 49f68dc6d6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/module-language.ss
View File

@ -250,7 +250,10 @@
(define path (define path
(cond [(get-filename port) => (compose simplify-path cleanse-path)] (cond [(get-filename port) => (compose simplify-path cleanse-path)]
[else #f])) [else #f]))
(define resolved-modpath (and path (make-resolved-module-path path))) (define resolved-modpath (and path (module-path-index-resolve
(module-path-index-join
path
#f))))
(define-values (name lang module-expr) (define-values (name lang module-expr)
(let ([expr (let ([expr
;; just reading the definitions might be a syntax error, ;; just reading the definitions might be a syntax error,