Changeset 21699 for src/Pugs/Prim.hs

Timestamp:

08/01/08 15:33:01 (4 months ago)

Author:

audreyt

Message:

* The logical consequence of r21698.

Files:

• src/Pugs/Prim.hs (modified) (3 diffs)

src/Pugs/Prim.hs

@@ -239 +239 @@
     return $ VBool True
 op1 "require_parrot" = \v -> do
-    name    <- fromVal v
-    io $ evalParrotFile name
+    -- name    <- fromVal v
+    fail "evalParrotFile has bitrotten." -- io $ evalParrotFile name
     return $ VBool True
 op1 "require_perl5" = \v -> do
@@ -259 +259 @@
     return val
 op1 "Pugs::Internals::eval_parrot" = \v -> do
-    code    <- fromVal v
+    -- code    <- fromVal v
+    fail "evalParrot has bitrotten." 
+    {-
     io . evalParrot $ case code of
         ('.':_) -> code
@@ -268 +270 @@
             , ".end"
             ]
+    -}
     return $ VBool True