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

QSem bug fix

diff --git a/ghc/lib/concurrent/Semaphore.lhs b/ghc/lib/concurrent/Semaphore.lhs
index f3f5429..363c936 100644 (file)
--- 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