.

original commit: c60bf4b986e021bf82ce89c66745bded75f4edf6
2001-11-05 22:16:56 +00:00 · 2001-11-05 22:16:56 +00:00 · 703fd60aa7
commit 703fd60aa7
parent 339cd457a4
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/thread.ss
+++ b/collects/mzlib/thread.ss
@ -121,7 +121,7 @@
 	  (raise-type-error 'merge-input "positive exact integer or #f" limit))
      (let-values ([(rd wt) (make-pipe limit)]
 		   [(other-done?) #f]
-		   [(sema) (make-semaphore)])
+		   [(sema) (make-semaphore 1)])
 	(let ([copy
 	       (lambda (from)
                 (thread