Incredibly important ONE CHARACTER fix.

iu-parfunc · Mar 28, 2013 · 0618d60 · lkuper · Mar 28, 2013 · 0618d60
1 parent 2a6c656
commit 0618d60
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/haskell-prototype/BFS.hs b/haskell-prototype/BFS.hs
@@ -134,7 +134,8 @@ verbose :: Bool
 verbose = checkEnv "VERBOSE" False
 
 dbg :: Bool
-dbg = checkEnv "DEBUG" False
+-- dbg = checkEnv "DEBUG" False
+dbg = False -- Let it inline, DCE.
 
 main :: IO ()
 main = do

diff --git a/haskell-prototype/LVarTracePure.hs b/haskell-prototype/LVarTracePure.hs
@@ -295,11 +295,11 @@ sched queue t = loop t
       -- potentially more expensive than in the plain IVar case.)
       -- e <- readIORef ref
       let thisCB x =
-            trace ("... LVar blocked, thresh attempted "++show(hashStableName$ unsafePerformIO$ makeStableName x))
+--            trace ("... LVar blocked, thresh attempted "++show(hashStableName$ unsafePerformIO$ makeStableName x))
             fmap cont $ thresh x
       r <- atomicModifyIORef ref $ \ st@(LVarContents a ls) ->
         case thresh a of
-          Just b  -> trace ("... LVar get, thresh passed ")
+          Just b  -> -- trace ("... LVar get, thresh passed ")
                      (st, loop (cont b))
           Nothing -> (LVarContents a (thisCB:ls), reschedule queue)
       r
@@ -322,7 +322,7 @@ sched queue t = loop t
                     (ls',woken) = loop ls [] []
                     loop [] f w = (f,w)
                     loop (hd:tl) f w =
-                      case hd new of
+                      case hd new' of
                         Just trc -> loop tl f (trc:w)
                         Nothing  -> loop tl (hd:f) w
                     -- Callbacks invoked: