decompile: allow collapsed module path to be relative

2015-02-27 11:23:46 -07:00 · 2015-02-27 11:23:46 -07:00 · 515b31ff44
commit 515b31ff44
parent 047c8bd85a
1 changed files with 1 additions and 4 deletions
--- a/compiler-lib/compiler/decompile.rkt
+++ b/compiler-lib/compiler/decompile.rkt
@ -178,10 +178,7 @@
  (cond
   [(symbol? modidx) modidx]
   [else 
-    (collapse-module-path-index modidx (build-path
-                                        (or (current-load-relative-directory)
-                                            (current-directory))
-                                        "here.rkt"))]))
+    (collapse-module-path-index modidx)]))

 (define (decompile-module mod-form orig-stack stx-ht mod-name)
  (match mod-form