Changeset 3753 for src/Pugs/Prim/Eval.hs

Timestamp:

05/23/05 18:12:59 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5343

Message:

* eval_haskell now sets $! on failure again

Files:

• src/Pugs/Prim/Eval.hs (modified) (1 diff)

src/Pugs/Prim/Eval.hs

@@ -31 +31 @@
 op1EvalHaskell :: Val -> Eval Val
 op1EvalHaskell cv = do
-    str     <- fromVal cv :: Eval String
-    evalHaskell str
+    str     <- fromVal cv
+    val     <- resetT $ evalHaskell str
+    retEvalResult False val
 
 opEval :: Maybe Bool -> String -> String -> Eval Val