Put in goto NYI stub

rakudo · May 28, 2015 · 014597e · 014597e
1 parent 08b0e97
commit 014597e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src/core/Label.pm b/src/core/Label.pm
@@ -20,9 +20,8 @@ my class Label {
         $!name
     }
 
-    method leave(*@) {
-        X::NYI.new(:feature("{self.^name}.leave()")).throw;
-    }
+    method goto(*@)  { X::NYI.new(:feature("{self.^name}.goto()")).throw }
+    method leave(*@) { X::NYI.new(:feature("{self.^name}.leave()")).throw }
 
     multi method gist(Label:D:) {
         my $is-win := $*DISTRO.is-win;
@@ -37,7 +36,6 @@ my class Label {
 
     method Int() { nqp::where(nqp::decont(self)) }
 
-    # XXX method goto
     method next() {
         my Mu $ex := nqp::newexception();
         nqp::setpayload($ex, nqp::decont(self));

diff --git a/src/core/control.pm b/src/core/control.pm
@@ -75,6 +75,9 @@ multi sub take(|) {
 }
 #?endif
 
+proto sub goto(|) { * }
+multi sub goto(Label:D \x) { x.goto }
+
 proto sub last(|) { * }
 multi sub last()           { THROW-NIL(nqp::const::CONTROL_LAST) }
 multi sub last(Label:D \x) { x.last }