Changeset 15745 for src/Pugs/AST.hs

Timestamp:

03/17/07 11:10:25 (21 months ago)

Author:

audreyt

Message:

* Chase the TraitBlocks? change.

Files:

• src/Pugs/AST.hs (modified) (1 diff)

src/Pugs/AST.hs

@@ -392 +392 @@
             xs  -> die ("Cannot coerce to " ++ name) xs
     , subCont          = Nothing
-    , subPreBlocks     = []
-    , subPostBlocks    = []
-    , subFirstBlocks   = []
-    , subLastBlocks    = []
-    , subNextBlocks    = []
-    , subKeepBlocks    = []
-    , subUndoBlocks    = []
-    , subEnterBlocks   = []
-    , subLeaveBlocks   = []
-    , subControlBlocks = []
-    , subCatchBlocks   = []
+    , subTraitBlocks   = emptyTraitBlocks
     }
     where