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