From cb81e3768df25aa72b6fcf36f8aaf326e26966db Mon Sep 17 00:00:00 2001
From: Leif Andersen <leif@leifandersen.net>
Date: Sat, 23 Jul 2016 02:27:40 -0400
Subject: [PATCH] Woops, racket/gui/interactive should load .gracketrc.

(Cannot use (find-system-path 'init-file) because it will always
evaluate to .racketrc, even in gracket (where it should be
.gracketrc).)
---
 gui-lib/racket/gui/interactive.rkt | 11 +++++++++++
 1 file changed, 11 insertions(+)

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