Changeset 12200 for src/Pugs/Val

Timestamp:

08/14/06 06:48:18 (2 years ago)

Author:

audreyt

Message:

* Oldland method calls with newVal as invocant is now hooked into a

newland call with new toys such Captures, Feeds, etc. Yay!

pugs> vv('moose').elk(1, 2, antler => 3);
CCall "elk" CaptMeth?

{ c_invocant = VPure (MkStr? "moose")
, c_feeds = [ MkFeed?

{ a_positional = [VPure (IFinite 1),VPure (IFinite 2)]
, a_named = fromList [("antler",[VPure (IFinite 3)])]
} ]

}

Files:

• src/Pugs/Val/Code.hs (modified) (1 diff)

src/Pugs/Val/Code.hs

@@ -126 +126 @@
     = CaptMeth
         { c_invocant :: a
-        , c_argstack :: [Arglist a]
+        , c_feeds    :: [Feed a]
         }
     | CaptSub
-        { c_argstack :: [Arglist a]
+        { c_feeds    :: [Feed a]
         }
     deriving (Show, Eq, Ord, Data, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}
 
 -- | non-invocant arguments.
-data Arglist a = MkArglist
+data Feed a = MkFeed
     { a_positional :: [a]
     , a_named      :: Map ID [a]    -- ^ maps to [a] and not a since if the Sig stipulates