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

Timestamp:

12/05/05 05:24:34 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

10519

Message:

* &die and &fail now takes objects; they get stored into $!

as objects, not strings, inside a try {} block.

Files:

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

src/Pugs/Prim/Eval.hs

@@ -99 +99 @@
     errSV <- findSymRef "$!" glob
     case val of
-        err@(VError str _) -> do
-            writeRef errSV (VStr str)
+        err@(VError e _) -> do
+            writeRef errSV e
             when (evalError style == EvalErrorFatal) $ do
                 liftIO $ fail $ pretty err