avoid internal error on misconfigured executable
This commit is contained in:
parent
9695098bbb
commit
e8605a7181
File diff suppressed because it is too large
Load Diff
|
@ -406,7 +406,8 @@
|
|||
"(cond"
|
||||
"((complete-path? p) p)"
|
||||
"(else"
|
||||
"(path->complete-path p(find-main-collects))))))"
|
||||
"(path->complete-path p(or(find-main-collects)"
|
||||
"(current-directory)))))))"
|
||||
"(define-values(exe-relative-path->complete-path)"
|
||||
"(lambda(collects-path)"
|
||||
"(cond"
|
||||
|
|
|
@ -481,7 +481,12 @@
|
|||
(cond
|
||||
[(complete-path? p) p]
|
||||
[else
|
||||
(path->complete-path p (find-main-collects))])))
|
||||
(path->complete-path p (or (find-main-collects)
|
||||
;; If we get here, then something is configured wrong,
|
||||
;; and making up paths relative to the current directory
|
||||
;; is not great --- but we have to come up with some
|
||||
;; path at this point.
|
||||
(current-directory)))])))
|
||||
|
||||
(define-values (exe-relative-path->complete-path)
|
||||
(lambda (collects-path)
|
||||
|
|
Loading…
Reference in New Issue
Block a user