Changeset 5170 for src/Pugs/Prim/Eval.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/Prim/Eval.hs (modified) (2 diffs)

src/Pugs/Prim/Eval.hs

@@ -11 +11 @@
 import Pugs.Parser.Program
 import Pugs.Embed
+import Pugs.Monads
 import Pugs.Internals
 import Pugs.Pretty
@@ -85 +86 @@
             EvalResultEnv -> (`mergeStmts` Syn "env" [])
             _             -> id
-    val <- resetT $ local (const env') $ do
+    val <- resetT $ local (const env') $ enterCaller $ do
         evl <- asks envEval
         evl (trans $ envBody env')