Suggestions for unknown subs specified with &sigil

rakudo · Mar 7, 2014 · be9ffea · be9ffea
1 parent 318a41a
commit be9ffea
Showing 1 changed file with 10 additions and 8 deletions.
diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
@@ -3737,19 +3737,21 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
             next if $decl == 1;
             next if $*W.is_lexically_visible('&' ~ $name, %sym<lex>);
 
-            # just a guess, but good enough to improve error reporting
-            if $_ lt 'a' {
-                %unk_types{$name} := [] unless %unk_types{$name};
-                my @suggs := $*W.suggest_typename($name);
-                %type_suggestion{$name} := @suggs;
-                push_lines(%unk_types{$name}, %sym<pos>);
-            }
-            else {
+            # no sigil or &
+            if $name ge 'a' || nqp::substr($name,0,1) eq '&' {
                 %unk_routines{$name} := [] unless %unk_routines{$name};
                 my @suggs := $*W.suggest_routines($name);
                 %routine_suggestion{$name} := @suggs;
                 push_lines(%unk_routines{$name}, %sym<pos>);
             }
+
+            # hopefully improve error reporting
+            else {
+                %unk_types{$name} := [] unless %unk_types{$name};
+                my @suggs := $*W.suggest_typename($name);
+                %type_suggestion{$name} := @suggs;
+                push_lines(%unk_types{$name}, %sym<pos>);
+            }
         }
 
         if %post_types || %unk_types || %unk_routines {