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

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

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-index/scribblings/main/private/index-scope.rkt
View File

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