Changeset 14353 for src/Pugs/Eval.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/Eval.hs (modified) (1 diff)

src/Pugs/Eval.hs

@@ -513 +513 @@
         evalCond | unwrap cond == Noop = return True
                  | otherwise = fromVal =<< enterEvalContext (cxtItem "Bool") cond
-    sub     <- fromVal =<< (enterRValue $ enterEvalContext (cxtItem "Code") body)
+    sub     <- fromCodeExp body
     evalExp pre
     vb      <- evalCond