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

Fix checking of path existence: use the input path, not the normalized one.

Browse Source
This commit is contained in:
Eli Barzilay 2010-05-13 01:25:30 -04:00
parent 27f76f2da0
commit e6761dc7b1
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/meta/props
View File

@ -395,17 +395,17 @@ path/s is either such a string or a list of them.
(for/list ([p (in-lines (current-input-port))]) p)
(let ([root (normalize-path (find-root))])
(define (norm p)
(unless (or (not check-existing-paths?)
(file-exists? p)
(directory-exists? p))
(error* #f "path does not exist: ~s" p))
(let ([n (find-relative-path root (normalize-path p))])
(cond
[(not (or (not check-existing-paths?)
(file-exists? n)
(directory-exists? n)))
(error* #f "path does not exist: ~s" p)]
[(equal? n root) ""]
[else (let ([n (path->string n)])
(if (regexp-match #rx"^\\.\\.(?:/|$)" n)
(error* #f "path is not in the plt tree: ~s" p)
n))])))
(if (equal? n root)
""
(let ([n (path->string n)])
(if (regexp-match #rx"^\\.\\.(?:/|$)" n)
(error* #f "path is not in the plt tree: ~s" p)
n)))))
(if (null? paths) (norm path) (map norm (cons path paths))))))
(define (get prop path . paths)
(let ([prop (string->symbol prop)]