convert find-user-pkgs-dir to a simple-form-path

find-relative-path expects a simple-form-path, but according to the documentation PLTUSERHOME as propagated by find-user-pkgs-dir must only be a complete-path?
Without this building of the documentation fails if PLTUSERHOME contains ".."
This commit is contained in:
bdeket 2015-01-07 13:06:38 +01:00 committed by Matthew Flatt
parent f2a8c31d9f
commit 1f46ea1846

View File

@ -8,7 +8,7 @@
(define p
(find-relative-path
(collection-file-path "index-scope.rkt" "scribblings/main/private")
(find-user-pkgs-dir)
(simple-form-path (find-user-pkgs-dir))
#:more-than-root? #t))
(and (path? p)
(let loop ([p p])