Changeset 15374 for src/Pugs/Eval

Timestamp:

02/28/07 00:25:27 (21 months ago)

Author:

audreyt

Message:

* Adapt existing newVal implementation in Pugs.Val to MO.

A "Val" is now simply an invocant within the Eval monad.

Files:

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

src/Pugs/Eval/Var.hs

@@ -237 +237 @@
                 -- callMethod methName []
                 -- inv ./ meth = ivDispatch inv $ MkMethodInvocation meth (mkArgs [])
-                case invVV of
-                    Val.VPure p -> return . runIdentity $ do
-                        obj <- mkObj p
-                        res <- fromObjBox =<< obj ./ cast methName
-                        return . castV $ Val.VPure (res `asTypeOf` p)
-                    _       -> do
-                        return . castV $ "CCall " ++ show methName ++ " " ++ show capt
+                resVV <- invVV ./ cast methName
+                return . castV $ resVV
             }