Changeset 15710 for src/Pugs/Eval

Timestamp:

03/14/07 16:33:44 (21 months ago)

Author:

audreyt

Message:

* Chase "is context" pad structure changes in other modules.

This concludes the contextual-declarations batch.

Files:

• src/Pugs/Eval/Var.hs (modified) (2 diffs)

src/Pugs/Eval/Var.hs

@@ -32 +32 @@
 
 constPadEntry :: VRef -> PadEntry
-constPadEntry r = EntryConstant{ pe_type = refType r, pe_proto = r }
+constPadEntry r = PEConstant{ pe_type = refType r, pe_proto = r, pe_flags = mempty }
 
 lookupShellEnvironment :: ByteString -> Eval (Maybe PadEntry)
@@ -476 +476 @@
 inferExpType (Ann _ exp) = inferExpType exp
 inferExpType (Pad _ _ exp) = inferExpType exp
-inferExpType (Sym _ _ _ exp) = inferExpType exp
+inferExpType (Sym _ _ _ _ exp) = inferExpType exp
 inferExpType (Stmts _ exp) = inferExpType exp
 inferExpType (Syn "," _)    = return $ mkType "List"