Changeset 12176 for src/Pugs/Eval

Timestamp:

08/12/06 19:55:50 (2 years ago)

Author:

audreyt

Message:

* First cut at proper compile-time role mixin support, based on

discussion on #perl6 about the semantics of "does".

class C {};
class D does C {};
D.isa(C); # False
D.does(C); # True

Composition works, and overriding role methods should work as well,
but concrete class/package names is not yet renamed, and role conflicts
is not yet validated. Still, a step toward the right direction.

Files:

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

src/Pugs/Eval/Var.hs

@@ -297 +297 @@
             meta    <- readRef ref
             fetch   <- doHash meta hash_fetchVal
-            fromVal =<< fetch "traits"
+            fromVal =<< fetch "is"
     findWithPkg :: String -> String -> Eval (Either FindSubFailure VCode)
     findWithPkg pkg name = do