Changeset 4916 for src/Pugs/Compile.hs

Show
Ignore:
Timestamp:
06/22/05 21:33:15 (3 years ago)
Author:
bsmith
svk:copy_cache_prev:
6771
Message:

Moved Pugs.Compile.PIR to Pugs.Trans.PIR

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile.hs

    r4915 r4916  
    441441    in Just (pkg, name') 
    442442isQualified _ = Nothing 
     443 
     444initTEnv :: Eval TEnv 
     445initTEnv = do 
     446    initReg <- liftSTM $ newTVar (0, "") 
     447    initLbl <- liftSTM $ newTVar 0 
     448    return $ MkTEnv 
     449        { tLexDepth = 0 
     450        , tTokDepth = 0 
     451        , tCxt      = tcVoid 
     452        , tReg      = initReg 
     453        , tLabel    = initLbl 
     454        } 
     455