REJECTS is gone from the spec, so toss it from Rakudo too.

rakudo · Jul 16, 2010 · b612d4a · b612d4a
1 parent f74314f
commit b612d4a
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 29 deletions.
diff --git a/src/builtins/Mu.pir b/src/builtins/Mu.pir
@@ -338,22 +338,6 @@ Report the object's true nature.
 .end
 
 
-=item REJECTS(topic)
-
-Define REJECTS methods for objects (this would normally
-be part of the Pattern role, but we put it here for now
-until we get roles).
-
-=cut
-
-.sub 'REJECTS' :method
-    .param pmc topic
-    $P0 = self.'ACCEPTS'(topic)
-    $P1 = '&prefix:<!>'($P0)
-    .return ($P1)
-.end
-
-
 =item WHENCE()
 
 Return the invocant's auto-vivification closure.

diff --git a/src/cheats/parrot/P6role.pir b/src/cheats/parrot/P6role.pir
@@ -108,12 +108,6 @@ Puns the role to a class and returns that class.
   done:
     .return ($I0)
 .end
-.sub 'REJECTS' :method
-    .param pmc topic
-    $P0 = self.'ACCEPTS'(topic)
-    $I0 = isfalse $P0
-    .return ($I0)
-.end
 
 
 =item defined

diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -16,11 +16,6 @@ our multi infix:<~~>(Mu $topic is rw, Substitution $matcher) {
     $matcher.ACCEPTS($topic)
 }
 
-
-our multi infix:<!~~>(Mu $topic, Mu $matcher) {
-    $matcher.REJECTS($topic)
-}
-
 our multi prefix:<?>(Mu $a) {
     pir::can($a, 'Bool')
     ?? $a.Bool

diff --git a/src/pmc/p6role.pmc b/src/pmc/p6role.pmc
@@ -29,8 +29,6 @@ pmclass P6role extends Role dynpmc group perl6_group auto_attrs {
             return SUPER(name);
         if (Parrot_str_equal(interp, name, CONST_STRING(interp, "ACCEPTS")))
             return SUPER(name);
-        if (Parrot_str_equal(interp, name, CONST_STRING(interp, "REJECTS")))
-            return SUPER(name);
         if (Parrot_str_equal(interp, name, CONST_STRING(interp, "attributes")))
             return SUPER(name);
         if (Parrot_str_equal(interp, name, CONST_STRING(interp, "methods")))