Changeset 2433 for src/Pugs/External.hs

Timestamp:

04/28/05 13:59:35 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* STMification: All our IORefs are now TVars.

Files:

• src/Pugs/External.hs (modified) (1 diff)

src/Pugs/External.hs

@@ -38 +38 @@
         bindings    <- externLoad lang name
         newSyms     <- mapM gen bindings
-        modifyIORef glob (\pad -> combine newSyms pad)
+        liftSTM $ modifyTVar glob (\pad -> combine newSyms pad)
     where
     gen (name, fun) = genSym ('&':name) . codeRef $ mkPrim