Changeset 16487 for src/Pugs/Prim.hs

Timestamp:

05/21/07 21:40:31 (18 months ago)

Author:

audreyt

Message:

* Per dduncan++'s request, make "die" and "warn" output stack trace.

Files:

• src/Pugs/Prim.hs (modified) (2 diffs)

src/Pugs/Prim.hs

@@ -379 +379 @@
     return $ VBool True
 op1 "die" = \v -> do
-    pos <- asks envPos
     v'  <- fromVal $! v
-    retShift $! VError (errmsg $! v') [pos]
+    env <- ask
+    retShift $! VError (errmsg $! v') (collectPos (Just env))
     where
     errmsg VUndef      = VStr "Died"
@@ -389 +389 @@
     errmsg (VList [x]) = x
     errmsg x           = x
+    collectPos Nothing    = []
+    collectPos (Just env) = (envPos env:collectPos (envCaller env))
 op1 "warn" = \v -> do
     strs <- fromVal v
     errh <- readVar $ cast "$*ERR"
-    pos  <- asks envPos
-    op2 "IO::say" errh $ VList [ VStr $ pretty (VError (errmsg strs) [pos]) ]
+    env  <- ask
+    op2 "IO::say" errh $ VList [ VStr $ pretty (VError (errmsg strs) (collectPos (Just env))) ]
     where
     errmsg "" = VStr "Warning: something's wrong"
     errmsg x  = VStr x
+    collectPos Nothing    = []
+    collectPos (Just env) = (envPos env:collectPos (envCaller env))
 op1 "fail" = op1 "fail_" -- XXX - to be replaced by Prelude later
 op1 "fail_" = \v -> do