Changeset 14353 for src/Pugs/Compile.hs

Timestamp:

10/17/06 08:26:08 (2 years ago)

Author:

audreyt

svk:copy_cache_prev:

21206

Message:

* Pugs.Compile: Repair PIL1's handling of loops.

Files:

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

src/Pugs/Compile.hs

@@ -221 +221 @@
     compile (Syn "loop" [exp]) =
         compile (Syn "loop" $ [emptyExp, Val (VBool True), emptyExp, exp])
-    compile (Syn "loop" [pre, cond, post, (Syn "block" [body])]) = do
+    compile (Syn "loop" [pre, cond, post, body]) = do
         preC    <- compile pre
         -- loop (...; ; ...) {...} ->
@@ -234 +234 @@
         funC    <- compile (_Var "&statement_control:loop")
         return . PStmt . PExp $ PApp TCxtVoid funC Nothing
-            [preC, pBlock condC, pBlock bodyC, pBlock postC]
+            [preC, pBlock condC, bodyC, pBlock postC]
     compile exp@(Syn "unless" _) = fmap (PStmt . PExp) $ compConditional exp
     compile exp@(Syn "while" _) = compLoop exp
@@ -363 +363 @@
     bodyC   <- enter CxtVoid $ compile body
     funC    <- compile (_Var $ "&statement_control:" ++ name)
-    return . PStmt . PExp $ PApp cxt funC Nothing [pBlock condC, pBlock bodyC]
+    return . PStmt . PExp $ PApp cxt funC Nothing [pBlock condC, bodyC]
 compLoop exp = compError exp