Remove deprecated winner/more from Supply

rakudo · Sep 4, 2015 · 686e9aa · 686e9aa
1 parent e251aa7
commit 686e9aa
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 12 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1442,10 +1442,6 @@ Compilation unit '$file' contained the following violations:
         make when_handler_helper($<block>.ast);
     }
 
-    method term:sym<winner>($/) {
-        $*W.DEPRECATED($/,"'earliest'",'2014.10','2015.09',:what("'winner'"));
-        self.term:sym<earliest>($/);
-    }
     method term:sym<earliest>($/) {
         my @inner_statements := $<xblock><pblock><blockoid><statementlist><statement>;
         my $wild_done;

diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -68,11 +68,6 @@ my role Supply {
         Nil;
     }
 
-    method more(Supply:D: \msg) {
-        DEPRECATED('emit', |<2014.10 2015.09>);
-        self.emit(msg);
-    }
-
     method done(Supply:D:) {
         for self.tappers -> $t {
             my $l = $t.done();
@@ -848,11 +843,10 @@ sub on(&setup) {
 
         method !add_source(
           $source, $lock, $index, :&done is copy, :&quit is copy,
-          :&emit is copy, :&more   # more deprecated, emit must be changeable
+          :&emit
         ) {
-            DEPRECATED('emit => {...}', |<2014.10 2015.09>) if &more;
             $!live ||= True if $source.live;
-            &emit //= &more // X::Supply::On::NoEmit.new.throw;
+            &emit // X::Supply::On::NoEmit.new.throw;
             &done //= { self.done };
             &quit //= -> $ex { self.quit($ex) };