Changeset 16339 for src/Pugs/Parser

Timestamp:

05/17/07 23:16:21 (18 months ago)

Author:

audreyt

Message:

* Things actually run now, yay. Next step is to convert

Params over to the new convention...

Location:

src/Pugs/Parser

Files:

• Program.hs (modified) (1 diff)
• Util.hs (modified) (1 diff)

src/Pugs/Parser/Program.hs

@@ -174 +174 @@
     env' <- getRuleEnv
     return $ env'
-        { envBody       = App main Nothing []
+        { envBody       = App main Nothing [_Var "@*ARGS"]
         , envPackage    = envPackage env
         }

src/Pugs/Parser/Util.hs

@@ -50 +50 @@
             , envLexical = envLexical env
             , envLexPads = envLexPads env
+            , envCompPad = envCompPad env
             }
         , s_closureTraits = outerTraits