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

Timestamp:

07/12/05 12:01:46 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7492

Message:

* Allow exporting into non-main packages; export.t finally fixed. :)

Files:

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

src/Pugs/Prim/Eval.hs

@@ -85 +85 @@
 
 opEval :: EvalStyle -> FilePath -> String -> Eval Val
-opEval style path str = do
+opEval style path str = enterCaller $ do
     env <- ask
     let env' = parseProgram env path str
@@ -91 +91 @@
             EvalResultEnv -> (`mergeStmts` Syn "env" [])
             _             -> id
-    val <- resetT $ local (const env') $ enterCaller $ do
+    val <- resetT $ local (const env') $ do
         evl <- asks envEval
         evl (trans $ envBody env')