Changeset 4955 for src/Pugs/Compile.hs

Show
Ignore:
Timestamp:
06/26/05 09:11:31 (3 years ago)
Author:
autrijus
svk:copy_cache_prev:
6771
Message:

* minor source cleanups.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile.hs

    r4916 r4955  
    3131    PNoop       :: PIL Stmt 
    3232 
     33    PPos        :: !Pos -> !Exp -> !(PIL a) -> PIL a 
    3334    PRawName    :: !VarName -> PIL Expression -- XXX HACK! 
     35 
     36    PVal        :: !Val -> PIL Literal 
     37    PVar        :: !VarName -> PIL LValue 
    3438 
    3539    PExp        :: !(PIL LValue) -> PIL Expression  
    3640    PLit        :: !(PIL Literal) -> PIL Expression 
    37     PPos        :: !Pos -> !Exp -> !(PIL a) -> PIL a 
    38     PStmt       :: !(PIL Expression) -> PIL Stmt  
    3941    PThunk      :: !(PIL Expression) -> PIL Expression  
    4042    PCode       :: !SubType -> ![TParam] -> !(PIL [Stmt]) -> PIL Expression  
    4143 
    42     PVal        :: !Val -> PIL Literal 
    43     PVar        :: !VarName -> PIL LValue 
    44  
     44    PStmt       :: !(PIL Expression) -> PIL Stmt  
    4545    PStmts      :: !(PIL Stmt) -> !(PIL [Stmt]) -> PIL [Stmt] 
     46 
    4647    PApp        :: !TCxt -> !(PIL Expression) -> ![PIL Expression] -> PIL LValue 
    4748    PAssign     :: ![PIL LValue] -> !(PIL Expression) -> PIL LValue 
    4849    PBind       :: ![PIL LValue] -> !(PIL Expression) -> PIL LValue 
     50 
    4951    PPad        :: !Scope -> ![(VarName, PIL Expression)] -> !(PIL [Stmt]) -> PIL [Stmt] 
    50  
    5152    PSub        :: !SubName -> !SubType -> ![TParam] -> !(PIL [Stmt]) -> PIL Decl 
    5253#endif