Changeset 10228 for src/Pugs/Compile.hs

Timestamp:

05/06/06 00:58:03 (3 years ago)

Author:

lwall

svk:copy_cache_prev:

13387

Message:

C-style loop requires parens.

Files:

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

src/Pugs/Compile.hs

@@ -216 +216 @@
     compile (Syn "loop" [pre, cond, post, (Syn "block" [body])]) = do
         preC    <- compile pre
-        -- loop ...; ; ... {...} ->
-        -- loop ...; bool::true; ... {...}
+        -- loop (...; ; ...) {...} ->
+        -- loop (...; bool::true; ...) {...}
         let cond' | unwrap cond == Noop
                   = return $ PStmts (PStmt . PLit . PVal $ VBool True) PNil