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

svn: r18803
2010-04-12 23:28:40 +00:00 · 2010-04-12 23:28:40 +00:00 · 49f68dc6d6
commit 49f68dc6d6
parent 25a817e4aa
1 changed files with 4 additions and 1 deletions
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@ -250,7 +250,10 @@
        (define path
          (cond [(get-filename port) => (compose simplify-path cleanse-path)]
                [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)
          (let ([expr
                 ;; just reading the definitions might be a syntax error,