From e293d24da783e1a6883bab70664c36fc111ffb3d Mon Sep 17 00:00:00 2001 From: Leif Andersen Date: Sat, 23 Jul 2016 13:09:01 -0400 Subject: [PATCH] Apparently find-graphical-system-path finds the correct gracketrc file --- gui-lib/racket/gui/interactive.rkt | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/gui-lib/racket/gui/interactive.rkt b/gui-lib/racket/gui/interactive.rkt index 75717606..a7f1fc73 100644 --- a/gui-lib/racket/gui/interactive.rkt +++ b/gui-lib/racket/gui/interactive.rkt @@ -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)))