Changeset 16373 for src/Pugs/External.hs

Show
Ignore:
Timestamp:
05/17/07 23:37:13 (18 months ago)
Author:
audreyt
Message:

* Change the MPad data type to be a standalone datatype,

instead of the possibly relocatable TVar.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/External.hs

    r15616 r16373  
    4343    stm $ do 
    4444        newSyms     <- mapM gen bindings 
    45         modifyTVar glob (\pad -> combine newSyms pad) 
     45        modifyMPad glob (\pad -> combine newSyms pad) 
    4646    where 
    4747    gen (name, fun) = genSym (cast ('&':name)) . codeRef $ mkPrim