From 942eb574c1c4e035c43509d3476459f8318b98ed Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 9 Sep 2002 21:04:42 +0000
Subject: [PATCH] .

original commit: cd2c2674f98f0f1e6ca61b22e7bbeb4d2648cb90
---
 collects/mred/mred.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 5ddc51e4..9f41ea78 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -4974,7 +4974,7 @@
   (send repl-buffer auto-wrap #t)
 
   ;; Go
-  (when (or (not user-esp) override-ports?)
+  (when override-ports?
     (parameterize ((wx:current-eventspace user-eventspace))
       (wx:queue-callback
        (lambda ()
@@ -4993,12 +4993,12 @@
 
 (define graphical-read-eval-print-loop
   (case-lambda
-   [() (-graphical-read-eval-print-loop #f #f)]
+   [() (-graphical-read-eval-print-loop #f #t)]
    [(esp)
+    (graphical-read-eval-print-loop esp (not esp))]
+   [(esp override-ports?)
     (unless (or (not esp) (wx:eventspace? esp))
       (raise-type-error 'graphical-read-eval-print-loop "eventspace or #f" esp))
-    (-graphical-read-eval-print-loop esp #f)]
-   [(esp override-ports?)
     (-graphical-read-eval-print-loop esp override-ports?)]))
 
 (define box-width 300)