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

Fix raco dependencies-graph on relative paths.

Browse Source
This commit is contained in:
Vincent St-Amour 2014-04-14 16:40:14 -04:00
parent 8bbc00c7c1
commit 9eb8ab1bc3
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/drracket-pkgs/drracket/drracket/private/module-browser.rkt
View File

@ -1342,10 +1342,14 @@
prt)) prt))
p)))) p))))
(current-load-relative-directory #f) (current-load-relative-directory #f)
(current-directory init-dir) (define relative? (eq? init-dir 'relative))
(add-connections (if (string? filename) (unless relative? ; already there
(string->path filename) (current-directory init-dir))
filename)) (define file-path (if (string? filename)
(string->path filename)
filename))
(add-connections
(if relative? (build-path (current-directory) file-path) file-path))
(channel-put done-chan #t)))))) (channel-put done-chan #t))))))
(send pasteboard begin-adding-connections) (send pasteboard begin-adding-connections)