Changeset 15710 for src/Pugs/Parser

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.

Location:

src/Pugs/Parser

Files:

• Export.hs (modified) (1 diff)
• Operator.hs (modified) (2 diffs)

src/Pugs/Parser/Export.hs

@@ -22 +22 @@
             exps <- forM (filter defined subs) $ \val -> do
                 let name    = '&':subname
-                    mkSym   = _Sym scope name (Val val) Noop
+                    mkSym   = _Sym scope name mempty (Val val) Noop
                 doExport scope mkSym
             case scope of

src/Pugs/Parser/Operator.hs

@@ -137 +137 @@
         | otherwise                 = Ann Parens (Syn "," [inner])
     forceParens (Ann x inner)       = Ann x (forceParens inner)
-    forceParens (Sym x y init inner)= Sym x y init (forceParens inner)
+    forceParens (Sym x y flags init inner) = Sym x y flags init (forceParens inner)
     forceParens (Pad x y inner)     = Pad x y (forceParens inner)
     forceParens exp                 = exp
@@ -184 +184 @@
 
 hashPadEntry :: PadEntry -> Int32
-hashPadEntry EntryConstant{ pe_proto = v }  = I32# (unsafeCoerce# v)
+hashPadEntry PEConstant{ pe_proto = v }  = I32# (unsafeCoerce# v)
 hashPadEntry x                              = I32# (unsafeCoerce# (pe_store x))