Changeset 14113 for src/Pugs/Eval.hs

Timestamp:

10/09/06 17:26:24 (2 years ago)

Author:

audreyt

Message:

r14985@T: audreyt | 2006-10-09 16:45:12 +0800

• Use MonadError? instead of MonadCont? for error handling. This will help separate out continuations with exceptions.

Files:

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

src/Pugs/Eval.hs

@@ -187 +187 @@
 evalRef ref = do
     if refType ref == (mkType "Thunk") then forceRef ref else do
-    val <- callCC $ \esc -> do
+    val <- catchT $ \esc -> do
         MkEnv{ envContext = cxt, envLValue = lv, envClasses = cls } <- ask
         let typ = typeOfCxt cxt