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

setup/path-relativize: fix for unknown root path

Browse Source
This commit is contained in:
Matthew Flatt 2012-09-22 08:11:08 -06:00
parent c3a454aebf
commit 1eabd154fb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/setup/path-relativize.rkt
View File

@ -38,7 +38,8 @@
[else (raise-type-error to-rel-name "path, string, or bytes" [else (raise-type-error to-rel-name "path, string, or bytes"
path0)])) path0)]))
(let loop ([path (explode-path path1)] [root (force exploded-root)]) (let loop ([path (explode-path path1)] [root (force exploded-root)])
(cond [(null? root) (cons tag (map (lambda (pe) (datum-intern-literal (path-element->bytes pe))) (cond [(not root) path0]
[(null? root) (cons tag (map (lambda (pe) (datum-intern-literal (path-element->bytes pe)))
path))] path))]
;; Note: in some cases this returns the input path as is, which ;; Note: in some cases this returns the input path as is, which
;; could be a byte string -- it should be possible to return ;; could be a byte string -- it should be possible to return