raco setup: one more path simplifcation point

Closes PR 12355
This commit is contained in:
Matthew Flatt 2011-11-28 13:43:01 -07:00
parent cb341e1f48
commit 14e0698602

View File

@ -92,7 +92,7 @@
(let ([r (relative-from dir* (car root+table))])
(and r (cons (reverse r) root+table))))
(if root-dir
(list (list (explode-path root-dir)
(list (list (explode-path (simple-form-path root-dir))
(make-hash)
#t))
(force roots)))]