Fix error when a path is not found.
(`path-error' doesn't throw an exception, just prints the error.)
This commit is contained in:
parent
910a7dc8e7
commit
f0adf694cb
|
@ -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"))
|
||||
|
|
Loading…
Reference in New Issue
Block a user