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

decompile: allow collapsed module path to be relative

Browse Source
This commit is contained in:
Matthew Flatt 2015-02-27 11:23:46 -07:00
parent 047c8bd85a
commit 515b31ff44
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler-lib/compiler/decompile.rkt
View File

@ -178,10 +178,7 @@
(cond (cond
[(symbol? modidx) modidx] [(symbol? modidx) modidx]
[else [else
(collapse-module-path-index modidx (build-path (collapse-module-path-index modidx)]))
(or (current-load-relative-directory)
(current-directory))
"here.rkt"))]))
(define (decompile-module mod-form orig-stack stx-ht mod-name) (define (decompile-module mod-form orig-stack stx-ht mod-name)
(match mod-form (match mod-form