Changeset 16392

Timestamp:

05/17/07 23:50:14 (18 months ago)

Author:

audreyt

Message:

* "my $x = 4" should simply generate "$x = 4" instead of

"($x = 4; $x)". This repairs PIR codegen.

Files:

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

src/Pugs/Parser.hs

@@ -1424 +1424 @@
     makeInitializer _ (name, _, _, def)
         | def /= Noop, def /= Val (VList []) = do
-        return $ Stmts (Syn "=" [_Var name, def]) (_Var name)
+        return $ Syn "=" [_Var name, def]
     makeInitializer _ (name, _, _, _) = return (_Var name)