Changeset 16377 for src/Pugs/Parser

Timestamp:

05/17/07 23:39:33 (18 months ago)

Author:

audreyt

Message:

* Supply $_ to the MAIN closure if it wants that.

Files:

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

src/Pugs/Parser/Program.hs

@@ -189 +189 @@
 
     -- Force a reclose-pad evaluation here by way of unsafeEvalExp.
-    main' <- unsafeEvalExp $ Syn "" [unwrap main]
+    main'@(Val (VCode vc)) <- unsafeEvalExp $ Syn "" [unwrap main]
 
     env' <- getRuleEnv
     return $ env'
-        { envBody       = App (Syn "block" [main']) Nothing [] -- _Var "@*ARGS"]
+        { envBody       = App (Syn "block" [main']) Nothing (replicate (length $ subParams vc) (_Var "$*_")) -- _Var "@*ARGS"]
         , envPackage    = envPackage env
         }