Changes between Version 116 and Version 117 of LightweightConcurrency


Ignore:
Timestamp:
May 30, 2012 3:26:52 PM (23 months 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