Changeset 4903 for src/Pugs/Compile/PIR.hs

Timestamp:

06/21/05 16:35:44 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

6641

Message:

Pugs.Compile.PIR -- Trivial one word patch: s/unless_null/if_null/, now macros work:

pugs -CPIR -we 'macro zz ($a) { warn "[$a]"; return { 42 } } say zz(5)'

This says "[5]" at compile-time and outputs "42" at run-time. Macros which
return strings work too.

Files:

• src/Pugs/Compile/PIR.hs (modified) (1 diff)

src/Pugs/Compile/PIR.hs

@@ -589 +589 @@
     when (isOptional prm) $ do
         [defC] <- genLabel ["defaultDone"]
-        tellIns $ "unless_null" .- [bare name, bare defC]
+        tellIns $ "if_null" .- [bare name, bare defC]
         case tpDefault param of
             Nothing     -> tellIns $ InsNew (VAR name) PerlScalar