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

don't die on a ".../plt/collects" path

Browse Source 
svn: r15043
This commit is contained in:
Eli Barzilay 2009-06-01 20:16:40 +00:00
parent a255514ba1
commit bb823bbb3b
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/setup/private/path-utils.ss
View File

@ -42,8 +42,10 @@
(define (try find-base prefix) (define (try find-base prefix)
(define rel (path->rel path find-base)) (define rel (path->rel path find-base))
(and (pair? rel) (and (pair? rel)
(let* ([p (cdr (append-map (lambda (p) (list #"/" p)) (cdr rel)))] (let* ([p (append-map (lambda (p) (list #"/" p)) (cdr rel))]
[p (bytes->string/utf-8 (apply bytes-append p))]) [p (if (null? p)
""
(bytes->string/utf-8 (apply bytes-append (cdr p))))])
(if prefix (format "<~a>/~a" prefix p) p)))) (if prefix (format "<~a>/~a" prefix p) p))))
(define (->string) (if (string? path) path (path->string path))) (define (->string) (if (string? path) path (path->string path)))
(if (not (complete-path? path)) (if (not (complete-path? path))