change `find-relative-directories' to normalize completed paths

Avoids problems with clients (like the Scribble part of `raco setup')
that compare paths.
This commit is contained in:
Matthew Flatt 2013-07-10 07:08:23 -06:00
parent fe98a80c22
commit 5c80084f68

View File

@ -165,7 +165,7 @@
(if (and (relative-path? p) root-dir)
;; `raco setup' doesn't generate relative paths anyway,
;; but it's ok to support them:
(build-path root-dir p)
(simplify-path (build-path root-dir p))
p))
(if (eq? (car pathbytes) 'info)
(info-relative->path pathbytes)