Changeset 14574 for src/Pugs/Eval.hs

Timestamp:

11/01/06 18:25:25 (2 years ago)

Author:

audreyt

Message:

* Mark Perl5 eval as safe under ops.pm

Files:

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

src/Pugs/Eval.hs

@@ -426 +426 @@
     | otherwise = enterBlock $ reduce exp
     
-reduceSyn "block-perl5" [Val p5code] = do
+reduceSyn "block-perl5" args = do
     -- XXX - 0th approximation.
-    op1 "Pugs::Internals::eval_perl5" p5code
+    reduceApp (_Var "&Pugs::Internals::eval_perl5") Nothing args
 
 reduceSyn "sub" [exp] = do