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

`raco decompile' fix

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-29 10:49:51 -06:00
parent 9eb4f0e278
commit c69ea5569f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/decompile.rkt
View File

@ -185,7 +185,9 @@
(if (path? p) (if (path? p)
(let ([d (current-load-relative-directory)]) (let ([d (current-load-relative-directory)])
(path->string (if d (path->string (if d
(find-relative-path d p #:more-than-root? #t) (find-relative-path (simplify-path d #t)
(simplify-path p #f)
#:more-than-root? #t)
p))) p)))
p))) p)))
(if (eq? 0 (car req)) (if (eq? 0 (car req))