[project @ 1997-05-18 04:24:53 by sof]

QSem bug fix

[project @ 1997-05-18 04:24:53 by sof]
8a882e14 · sof · 05f1dd60 · 8a882e14
Commit 8a882e14 authored 27 years ago by sof
--- a/ghc/lib/concurrent/Semaphore.lhs
+++ b/ghc/lib/concurrent/Semaphore.lhs
@@ -103,7 +103,7 @@ signalQSemN (QSemN sem) n
   where
    free avail [] = return (avail,[])
    free avail ((req,block):blocked) =
-     if avail > req then
+     if avail >= req then
 	putMVar block () >>
 	free (avail-req) blocked
     else