fix modcollapse bug related to relative paths used from the top level

svn: r8636
2008-02-13 00:19:43 +00:00 · 2008-02-13 00:19:43 +00:00 · 361b471a05
commit 361b471a05
parent 0dc359a956
1 changed files with 3 additions and 2 deletions
--- a/collects/syntax/modcollapse.ss
+++ b/collects/syntax/modcollapse.ss
@ -138,8 +138,9 @@
      (if path
          (collapse-module-path
           path
-           (and base
-                (collapse-module-path-index base relto-mp)))
+           (if base
+               (collapse-module-path-index base relto-mp)
+               relto-mp))
          relto-mp)))

  (define simple-rel-to-module-path-v/c