Changeset 10277 for src/Pugs/Compile
- Timestamp:
- 05/11/06 11:59:02 (3 years ago)
- svk:copy_cache_prev:
- 13387
- Files:
-
- 1 modified
-
src/Pugs/Compile/PIL2.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Compile/PIL2.hs
r10228 r10277 200 200 preC <- compile pre 201 201 -- loop (...; ; ...) {...} -> 202 -- loop (...; bool::true; ...) {...}202 -- loop (...; True; ...) {...} 203 203 let cond' | unwrap cond == Noop 204 204 = return $ PStmts (PStmt . PLit . PVal $ VBool True) PNil
