Fix error when a path is not found.

(`path-error' doesn't throw an exception, just prints the error.)
This commit is contained in:
Eli Barzilay 2012-11-11 14:36:55 -05:00
parent 910a7dc8e7
commit f0adf694cb

View File

@ -418,7 +418,8 @@ path/s is either such a string or a list of them.
(cond [(not path) ""]
[(directory-exists? path) (string-append path "/")]
[(file-exists? path) #f]
[else (path-error path "Missing file/directory")]))
[else (path-error path "Missing file/directory")
#f]))
(define others (if path/ (uncovered-subs path/ (map Tree-name subs)) '()))
(unless (assq 'responsible all-props)
(define (bad p) (path-error p "no responsible"))