original commit: 68530be47ab12f5963e664c48ce18afb72dd5030
This commit is contained in:
Matthew Flatt 1998-12-09 23:00:12 +00:00
parent 402bc420f8
commit 174461eeed

View File

@ -4016,6 +4016,7 @@
((in-parameterization user-parameterization current-error-port) user-output-port)
((in-parameterization user-parameterization current-input-port) (make-input-port (lambda () eof) void void))
((in-parameterization user-parameterization current-custodian) user-custodian)
((in-parameterization user-parameterization current-will-executor) (make-will-executor))
(send repl-display-canvas set-editor repl-buffer)
(send frame show #t)