original commit: d28a5334384ad293e0b68aacdca26e1c9da0d5df
This commit is contained in:
Matthew Flatt 2003-03-06 23:06:08 +00:00
parent fc57b94fc2
commit 81189c3f16

View File

@ -57,8 +57,8 @@
(dynamic-wind
void
(lambda ()
(ready-for-break)
(with-handlers ([exn:break? void])
(ready-for-break)
(copy-port cin in)))
(lambda () (close-output-port in)))))])
(and get-thread? t))