Changeset 2458 for src/Pugs/External.hs

Show
Ignore:
Timestamp:
04/29/05 10:20:46 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
3914
Message:

* The Eval monad is now split into (SIO/STM/IO) submonads.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/External.hs

    r2433 r2458  
    3434 
    3535externRequire lang name = do 
    36     glob    <- asks envGlobal 
    37     liftIO $ do 
    38         bindings    <- externLoad lang name 
     36    glob        <- asks envGlobal 
     37    bindings    <- liftIO $ externLoad lang name 
     38    liftSTM $ do 
    3939        newSyms     <- mapM gen bindings 
    40         liftSTM $ modifyTVar glob (\pad -> combine newSyms pad) 
     40        modifyTVar glob (\pad -> combine newSyms pad) 
    4141    where 
    4242    gen (name, fun) = genSym ('&':name) . codeRef $ mkPrim