From 361b471a05edcbbb38a80157bd0c19776d78cbe3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 13 Feb 2008 00:19:43 +0000
Subject: [PATCH] fix modcollapse bug related to relative paths used from the
 top level

svn: r8636
---
 collects/syntax/modcollapse.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/syntax/modcollapse.ss b/collects/syntax/modcollapse.ss
index 7a2de86ac4..2b0fe6f8d1 100644
--- 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