Changeset 15243 for src/Pugs/Eval.hs

Timestamp:

02/10/07 05:05:29 (22 months ago)

Author:

audreyt

Message:

* tene++ reported that:

warn if 1|2|3;

errorneously warned thrice because it was rewritten as:

if 1|2|3 -> $_ { warn }

instead of the clearly saner:

if 1|2|3 { warn }

This commit fixes it by defaulting syntactic prim/bare blocks
to take () instead of ($_=$+_).

Files:

• src/Pugs/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -1541 +1541 @@
             { subEnv        = Just env
             , subType       = SubPrim   -- This is a pseudoblock with no scope
-            , subParams     = [defaultScalarParam]
+            , subParams     = []
             , subBody       = x
             }