Changeset 16435 for src/Pugs/Parser

Timestamp:

05/18/07 21:54:54 (18 months ago)

Author:

audreyt

Message:

* Pugs.Parser.Util: Add parameter variables into the known-variable

set to be closed over.

Files:

• src/Pugs/Parser/Util.hs (modified) (2 diffs)

src/Pugs/Parser/Util.hs

@@ -30 +30 @@
     let env     = s_env state
         lexPads = (PCompiling compPad:envLexPads env)
+        protoVars = Map.map (const compPad) (padEntries $ s_protoPad state)
 
     put state
@@ -38 +39 @@
             }
         , s_protoPad        = emptyPad
+        , s_knownVars       = s_knownVars state `Map.union` protoVars
         }