Changeset 7623 for src/Pugs/Compile.hs

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:

• src/Pugs/Compile.hs (modified) (2 diffs)

src/Pugs/Compile.hs

@@ -290 +290 @@
         isLogicalLazy (PExp (PVar "&infix:or"))  = True
         isLogicalLazy (PExp (PVar "&infix:and")) = True
+        isLogicalLazy (PExp (PVar "&infix:err")) = True
         isLogicalLazy (PExp (PVar "&infix:||"))  = True
         isLogicalLazy (PExp (PVar "&infix:&&"))  = True
         isLogicalLazy (PExp (PVar "&infix://"))  = True
-        isLogicalLazy (PExp (PVar "&infix:err"))  = True
         isLogicalLazy _ = False
     compile exp@(Syn "if" _) = compConditional exp
@@ -333 +333 @@
                 }
             ]) Nothing []
+    -- For PIL2 we want real zone separation, e.g.
+    --   PApp { pNamedArgs = [...], pPositionalArgs = [...], ... }
+    -- For now, using &Pugs::Internals::named_pair is probably ok.
+    compile (Syn "named" kv@[_, _]) = do
+        compile $ App (Var "&Pugs::Internals::named_pair") Nothing kv
     compile exp = compError exp