*** empty log message ***

original commit: 8a7f5830e5abdf7f83f3752486dd6325abe68619
2004-11-30 18:05:17 +00:00 · 2004-11-30 18:05:17 +00:00 · 330c5ffc0c
commit 330c5ffc0c
parent 08075fd3f4
1 changed files with 1 additions and 0 deletions
--- a/collects/mzlib/thread.ss
+++ b/collects/mzlib/thread.ss
@ -136,6 +136,7 @@
 			  ;;(printf "3. creating coroutine thread~n")
 			  (with-handlers (((lambda (exn) #t)
 					   (lambda (exn) 
+					     (enable-stop #t)
 					     (channel-put ex-ch exn))))
 			    (let ([v (f enable-stop)])
 			      (enable-stop #t)