metaclass objects currently match Object, not Any

rakudo · Aug 8, 2009 · 2db9166 · 2db9166
1 parent 7717c4a
commit 2db9166
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/setting/Code.pm b/src/setting/Code.pm
@@ -3,7 +3,7 @@ class Code is also {
 =begin item ACCEPTS
 
 =end item
-    method ACCEPTS($topic) {
+    method ACCEPTS(Object $topic) {
         self($topic);
     }
 

diff --git a/src/setting/Object.pm b/src/setting/Object.pm
@@ -31,7 +31,7 @@ class Object is also {
                     @search_list = @new_search_list;
                 }
             } elsif $ascendant | $preorder {
-                my sub build_ascendent($class) {
+                my sub build_ascendent(Object $class) {
                     unless any(@classes <<===>> $class) {
                         push @classes, $class;
                         for $class.^parents(:local) {
@@ -41,7 +41,7 @@ class Object is also {
                 }
                 build_ascendent(self.WHAT);
             } elsif $descendant {
-                my sub build_descendent($class) {
+                my sub build_descendent(Object $class) {
                     unless any(@classes <<===>> $class) {
                         for $class.^parents(:local) {
                             build_descendent($^parent);