From 1f46ea18460de4041c0a247cbde3c39f564ba38c Mon Sep 17 00:00:00 2001 From: bdeket Date: Wed, 7 Jan 2015 13:06:38 +0100 Subject: [PATCH] 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 ".." --- pkgs/racket-index/scribblings/main/private/index-scope.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/racket-index/scribblings/main/private/index-scope.rkt b/pkgs/racket-index/scribblings/main/private/index-scope.rkt index cffcf1a337..13b909c1f7 100644 --- a/pkgs/racket-index/scribblings/main/private/index-scope.rkt +++ b/pkgs/racket-index/scribblings/main/private/index-scope.rkt @@ -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])