Changeset 7623

Show
Ignore:
Timestamp:
10/15/05 13:42:53 (3 years ago)
Author:
iblech
Message:

Pugs.Compile: Compile the new Syn "named". scook0++ for demagicalizing pairs!

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Compile.hs

    r7591 r7623  
    290290        isLogicalLazy (PExp (PVar "&infix:or"))  = True 
    291291        isLogicalLazy (PExp (PVar "&infix:and")) = True 
     292        isLogicalLazy (PExp (PVar "&infix:err")) = True 
    292293        isLogicalLazy (PExp (PVar "&infix:||"))  = True 
    293294        isLogicalLazy (PExp (PVar "&infix:&&"))  = True 
    294295        isLogicalLazy (PExp (PVar "&infix://"))  = True 
    295         isLogicalLazy (PExp (PVar "&infix:err"))  = True 
    296296        isLogicalLazy _ = False 
    297297    compile exp@(Syn "if" _) = compConditional exp 
    … …  
    333333                } 
    334334            ]) Nothing [] 
     335    -- For PIL2 we want real zone separation, e.g. 
     336    --   PApp { pNamedArgs = [...], pPositionalArgs = [...], ... } 
     337    -- For now, using &Pugs::Internals::named_pair is probably ok. 
     338    compile (Syn "named" kv@[_, _]) = do 
     339        compile $ App (Var "&Pugs::Internals::named_pair") Nothing kv 
    335340    compile exp = compError exp 
    336341