avoid internal error on misconfigured executable

This commit is contained in:
Matthew Flatt 2013-10-11 07:51:34 -06:00
parent 9695098bbb
commit e8605a7181
3 changed files with 663 additions and 655 deletions

File diff suppressed because it is too large Load Diff

View File

@ -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"

View File

@ -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)