Changeset 3919 for src/Pugs/Prim.hs

Timestamp:

05/26/05 23:10:37 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5482

Message:

* marshall pugs execution environment into $pugs::env.

Files:

• src/Pugs/Prim.hs (modified) (1 diff)

src/Pugs/Prim.hs

@@ -243 +243 @@
 op1 "eval_perl5" = \v -> do
     str <- fromVal v
-    cxt <- asks envContext
+    env <- ask
     tryIO undef $ do
-        sv <- evalPerl5 str $ enumCxt cxt
+        envSV <- valToSV (VControl $ ControlEnv env)
+        sv <- evalPerl5 str envSV $ enumCxt (envContext env)
         return $ PerlSV sv
 op1 "eval_haskell" = op1EvalHaskell