original commit: cd2c2674f98f0f1e6ca61b22e7bbeb4d2648cb90
This commit is contained in:
Matthew Flatt 2002-09-09 21:04:42 +00:00
parent 8368cf83f7
commit 942eb574c1

View File

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