Changeset 16488 for src/Pugs/AST.hs

Timestamp:

05/21/07 21:51:00 (18 months ago)

Author:

audreyt

Message:

* Introduce the envPosStack abstraction to cleanup the

stack-trace generaion; "fail" now also generates trace.

Files:

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

src/Pugs/AST.hs

@@ -19 +19 @@
     newPackage, newType, newMetaType, typeMacro, isScalarLValue,
     filterPrim, filterUserDefinedPad, typeOfParam, listVal, isImmediateMatchContext,
-    (./), defaultScalarPad,
+    (./), defaultScalarPad, envPosStack,
 
     module Pugs.AST.Internals,
@@ -506 +506 @@
 defaultScalarPad = mkPad [(varTopic, PELexical anyType defaultScalarRef mempty defaultScalarPadStore)]
 
+envPosStack :: Env -> [Pos]
+envPosStack env = envPos env : maybe [] envPosStack (envCaller env)
+