Changeset 2458 for src/Main.hs

Timestamp:

04/29/05 10:20:46 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

3914

Message:

* The Eval monad is now split into (SIO/STM/IO) submonads.

Files:

• src/Main.hs (modified) (2 diffs)

src/Main.hs

@@ -168 +168 @@
     result  <- case rv of
         VControl (ControlEnv env') -> do
-            glob    <- liftSTM . readTVar $ envGlobal env'
-            ref     <- findSymRef "$*_" glob
-            val     <- runEval env' $ readRef ref
+            ref <- liftSTM $ findSymRef "$*_" =<< readTVar (envGlobal env')
+            val <- runEvalIO env' $ readRef ref
             liftSTM $ writeTVar menv env'
             return val
@@ -209 +208 @@
 runImperatively menv eval = do
     env <- liftSTM $ readTVar menv
-    runEval env $ do
+    runEvalIO env $ do
         val <- eval
         newEnv <- ask