Changeset 14204

Timestamp:

10/11/06 05:36:00 (2 years ago)

Author:

audreyt

Message:

* Pugs.Monad: "loop { die }" should die. ;)

Files:

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

src/Pugs/Monads.hs

@@ -241 +241 @@
                     then return val
                     else retControl l{ leaveDepth = depth' }
-            VControl ControlExit{} -> retShift rv
+            VControl ControlExit{}  -> retShift rv
+            VError{}                -> do
+                -- XXX - Implement CATCH block here
+                retShift rv
             _ -> return rv
     where