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

Apparently find-graphical-system-path finds the correct gracketrc file

Browse Source
This commit is contained in:
Leif Andersen 2016-07-23 13:09:01 -04:00
parent 52300ff032
commit e293d24da7
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gui-lib/racket/gui/interactive.rkt
View File

@ -1,12 +1,5 @@
#lang racket/gui
(let ([init-file (cleanse-path
(build-path
(find-system-path 'init-dir)
; Cludge because (find-system-path init-path) will
; always return .racketrc, even in gracket
(case (system-type)
[(unix macosx) ".gracketrc"]
[(windows) "gracketrc.rktl"])))])
(let ([init-file (cleanse-path (find-graphical-system-path 'init-file))])
(when (file-exists? init-file)
(load init-file)))