Permalink
Browse files

v5 doesnt have colonpair

  • Loading branch information...
1 parent 80e4d98 commit 2d1a2cfc9aa54a7b0cbd14cb8d8ffcf158186670 @FROGGS FROGGS committed Mar 23, 2013
Showing with 12 additions and 10 deletions.
  1. +12 −10 src/Perl6/World.pm
View
@@ -1905,16 +1905,18 @@ class Perl6::World is HLL::World {
# the last part of the name (e.g. for infix:<+>). Need to be a
# little cheaty when compiling the setting due to bootstrapping.
my @pairs;
- for $longname<colonpair> {
- if $_<coloncircumfix> && !$_<identifier> {
- @components[+@components - 1] := @components[+@components - 1]
- ~ (%*COMPILING<%?OPTIONS><setting> ne 'NULL'
- ?? ':<' ~ ~$*W.compile_time_evaluate($_, $_.ast) ~ '>'
- !! ~$_
- );
- }
- else {
- @pairs.push($_);
+ if $longname<colonpair> {
+ for $longname<colonpair> {
+ if $_<coloncircumfix> && !$_<identifier> {
+ @components[+@components - 1] := @components[+@components - 1]
+ ~ (%*COMPILING<%?OPTIONS><setting> ne 'NULL'
+ ?? ':<' ~ ~$*W.compile_time_evaluate($_, $_.ast) ~ '>'
+ !! ~$_
+ );
+ }
+ else {
+ @pairs.push($_);
+ }
}
}
nqp::bindattr($result, LongName, '@!colonpairs', @pairs);

0 comments on commit 2d1a2cf

Please sign in to comment.