Changeset 17045

Timestamp:

07/14/07 04:26:18 (17 months ago)

Author:

audreyt

Message:

* Pugs.Parser.Program: Remove the unused s_freeVars field.

Files:

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

src/Pugs/Parser/Program.hs

@@ -12 +12 @@
 import Text.ParserCombinators.Parsec.Error (showErrorMessages, errorMessages)
 import qualified Data.Map as Map
-import qualified Data.Set as Set
 
 parseProgram :: Env -> FilePath -> String -> Env
@@ -109 +108 @@
     , s_wsColumn        = 0
     , s_closureTraits   = [id]
-    , s_freeVars        = Set.empty
+--  , s_freeVars        = Set.empty
     , s_knownVars       = Map.map (const topMPad) (padEntries (envLexical env))
     , s_outerVars       = Map.empty