Obscurize words-autoderef a bit

rakudo · Sep 5, 2018 · ae739ad · ae739ad
1 parent 9295116
commit ae739ad
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -10484,7 +10484,7 @@ class Perl6::QActions is HLL::Actions does STDActions {
         else {
             $past := QAST::Op.new(
                 :op('callmethod'),
-                :name('words-autoderef'),
+                :name('WORDS_AUTODEREF'),
                 :node($/),
                 $past
             );
@@ -10515,7 +10515,7 @@ class Perl6::QActions is HLL::Actions does STDActions {
                         :name('Slip'),
                         QAST::Op.new(
                             :op('callmethod'),
-                            :name('words-autoderef'),
+                            :name('WORDS_AUTODEREF'),
                             :node($/),
                             QAST::Op.new(
                                 :op('callmethod'),

diff --git a/src/core/Str.pm6 b/src/core/Str.pm6
@@ -2192,7 +2192,7 @@ my class Str does Stringy { # declared in BOOTSTRAP
     multi method words(Str:D:) { Seq.new(Words.new(self)) }
 
     # Internal method, used in Actions.postprocess_words/postprocess_quotewords
-    method words-autoderef(Str:D:) {
+    method WORDS_AUTODEREF(Str:D:) {
         Words.new(self).push-all(my $words := nqp::create(IterationBuffer));
         nqp::elems($words) == 1
           ?? nqp::shift($words)