Changes between Version 116 and Version 117 of LightweightConcurrency


Ignore:
Timestamp:
May 30, 2012 3:26:52 PM (3 years ago)
Author:
kc
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • LightweightConcurrency

    v116 v117  
    160160yield :: IO ()
    161161yield = atomically $ do
    162   s <- getCurrentSCont
    163162  -- Append current SCont to scheduler
    164   ssa <- getSSA s
     163  ssa <- getSSA
    165164  enque :: PTM () <- ssa a
    166165  enque
     
    218217      Empty ts -> do
    219218        s <- getCurrentSCont
    220         ssa <- getSSA s
     219        ssa <- getSSA
    221220        wakeup <- ssa s
    222221        writePVar ref $ v