original commit: e1229e70305f61d23ecf20a072d50d61ddab6d6c
This commit is contained in:
Matthew Flatt 2003-04-22 15:07:44 +00:00
parent b9f1c12d2e
commit bf9b5ea7cc

View File

@ -50,7 +50,7 @@
(st #t d is-shown?)
(thread-suspend t)
(stv d show #f)
(st #t d is-shown?)
(st #f d is-shown?)
(thread-resume t)
(thread-wait t)
(st #f d is-shown?)