Changeset 5646 for src/Pugs/CodeGen

Timestamp:

07/17/05 21:22:32 (3 years ago)

Author:

iblech

svk:copy_cache_prev:

7648

Message:

* Pugs.Compile -- &infix:<>(foo, bar) is compiled as &infix:<>(foo,

PThunk(bar)) now.

* Pugs.CodeGen?.PIR -- So Pugs.CodeGen?.PIR doesn't have to do this change, as

Pugs.Compile does it now.

* Pugs.Parser -- Filtered out &infix:<,> from list of user-overridable subs, as

else even basic arglists use &infix:<,> if a &infix:<,> is defined (see
comment).

* PIL2JS: Prelude::JS -- Proper support for , &&, etc.
* PIL2JS: README -- Minor cleanup.

Files:

• src/Pugs/CodeGen/PIR.hs (modified) (2 diffs)

src/Pugs/CodeGen/PIR.hs

@@ -123 +123 @@
             _           -> trans fun
         -}
-        argsC   <- if isLogicalLazy fun
-            then mapM trans (head args : map PThunk (tail args))
-            else mapM trans args
+        argsC   <- mapM trans args
         -- XXX WORKAROUND PARROT BUG (see below)
         pmc     <- genLV "app"
@@ -142 +140 @@
                 return pmc
         -}
-        where
-        -- XXX HACK
-        isLogicalLazy (PExp (PVar "&infix:or"))     = True
-        isLogicalLazy (PExp (PVar "&infix:and"))    = True
-        isLogicalLazy (PExp (PVar "&infix:||"))     = True
-        isLogicalLazy (PExp (PVar "&infix:&&"))     = True
-        isLogicalLazy _ = False
     trans (PPad SMy pad exps) = do
         valsC   <- mapM trans (map snd pad)