Skip to content
Permalink
Browse files

Obscurize words-autoderef a bit

  • Loading branch information...
lizmat committed Sep 5, 2018
1 parent 9295116 commit ae739adf3a33feb65ff5e206843708fd60030c44
Showing with 3 additions and 3 deletions.
  1. +2 −2 src/Perl6/Actions.nqp
  2. +1 −1 src/core/Str.pm6
@@ -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'),
@@ -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)

0 comments on commit ae739ad

Please sign in to comment.
You can’t perform that action at this time.