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

raco exe: fix GUI executables for runnnig without a preference file

Browse Source 
A check for a default preferences file in the configuration
directory failed, because there is no configuration directory
to check.

Closes PR 14370
This commit is contained in:
Matthew Flatt 2014-02-25 13:33:17 -07:00
parent eb2a74aaba
commit 6cb6f3fbf1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/file.rkt
View File

@ -419,9 +419,9 @@
;; in the configuration directory:
(values
(let* ([d (find-config-dir)]
[f (and d (build-path d "racket-prefs.rktd"))])
(if (file-exists? f)
f
[c-f (and d (build-path d "racket-prefs.rktd"))])
(if (and c-f (file-exists? c-f))
c-f
;; Trigger a filesystem error:
(call-with-input-file* f void)))
#f))))))])