Changeset 5170 for src/Pugs/Monads.hs

Timestamp:

07/04/05 00:37:10 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6965

Message:

* eval now pushes one caller frame, just as Perl5's eval does.

Files:

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

src/Pugs/Monads.hs

@@ -48 +48 @@
 enterEvalContext :: Cxt -> Exp -> Eval Val
 enterEvalContext cxt = enterContext cxt . evalExp
+
+{-|
+Perform the specified evaluation in the specified package.
+
+(Subsequent chained 'Eval's do /not/ see this package.)
+-}
+enterPackage :: String -> Eval a -> Eval a
+enterPackage pkg = local (\e -> e{ envPackage = pkg })
+
+{-|
+Enter a new environment and mark the previous one as 'Caller'.
+-}
+enterCaller :: Eval a -> Eval a
+enterCaller = local (\env -> env
+    { envCaller = Just env
+    , envDepth = envDepth env + 1 })
 
 {-|
@@ -240 +256 @@
         } ]
 
--- | (This doesn't seem to be used at the moment...)
-caller :: Int -> Eval Env
-caller n = do
-    depth <- asks envDepth
-    when (depth <= n) $
-        fail "Cannot ask for deeper depth"
-    asks $ foldl (.) id $ replicate n (fromJust . envCaller)
-
 evalVal :: Val -> Eval Val
 evalVal val = do