Changeset 15829 for src/Pugs/Compile.hs

Timestamp:

04/04/07 19:54:22 (20 months ago)

Author:

audreyt

Message:

* Revert r15828 as promised.

Files:

• src/Pugs/Compile.hs (modified) (2 diffs)

src/Pugs/Compile.hs

@@ -143 +143 @@
     compile (Ann (Cxt cxt) rest) = enter cxt $ compile rest
     compile (Ann _ rest) = compile rest
-{-
     compile (Stmts (Pad SOur _ exp) rest) = do
         compile $ mergeStmts exp rest
@@ -155 +154 @@
         expC    <- compile $ mergeStmts (foldl1 mergeStmts (exps ++ [exp])) rest
         return $ PPad scope symC expC
--}
     compile exp = compileStmts exp