Skip to content

Commit

Permalink
Make an nqp::list into an nqp::list_s in Perl6/World.pm.
Browse files Browse the repository at this point in the history
  • Loading branch information
arnsholt committed Mar 26, 2013
1 parent 696b0f5 commit bfa0b9a
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions src/Perl6/World.pm
Expand Up @@ -1835,7 +1835,7 @@ class Perl6::World is HLL::World {
# Fetches an array of components provided they are all known
# or resolvable at compile time.
method type_name_parts($dba, :$decl) {
my @name;
my @name := nqp::list_s();
my int $beyond_pp;
if $decl && $!get_who {
my $name := self.text;
Expand All @@ -1844,7 +1844,7 @@ class Perl6::World is HLL::World {
if +@!components == 1 && self.is_pseudo_package(@!components[0]) {
my $c := @!components[0];
if !$decl || ($decl eq 'routine') {
nqp::push(@name, $c);
nqp::push_s(@name, $c);
return @name;
}
if $c eq 'GLOBAL' {
Expand All @@ -1859,7 +1859,7 @@ class Perl6::World is HLL::World {
if nqp::istype($_, QAST::Node) {
if $_.has_compile_time_value {
for nqp::split('::', ~$_.compile_time_value) {
@name.push($_);
nqp::push_s(@name, $_);
}
}
else {
Expand All @@ -1868,7 +1868,7 @@ class Perl6::World is HLL::World {
}
}
elsif $beyond_pp || !self.is_pseudo_package($_) {
nqp::push(@name, $_);
nqp::push_s(@name, $_);
$beyond_pp := 1;
}
else {
Expand All @@ -1881,7 +1881,7 @@ class Perl6::World is HLL::World {
}
}
else {
nqp::push(@name, $_);
nqp::push_s(@name, $_);
}
}
}
Expand Down

0 comments on commit bfa0b9a

Please sign in to comment.