diff --git a/gui-lib/racket/gui/interactive.rkt b/gui-lib/racket/gui/interactive.rkt index 547f41a5..75717606 100644 --- a/gui-lib/racket/gui/interactive.rkt +++ b/gui-lib/racket/gui/interactive.rkt @@ -1 +1,12 @@ #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"])))]) + (when (file-exists? init-file) + (load init-file)))