Fix 'constant fib := 0, 1, *+* ... *; say fib[100]'.

rakudo · Mar 1, 2012 · d4e8e41 · d4e8e41
1 parent d34723f
commit d4e8e41
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -1882,12 +1882,15 @@ grammar Perl6::Grammar is HLL::Grammar {
 
     token term:sym<name> {
         <longname>
+        :my @longname;
+        { @longname := parse_name($<longname>.Str) }
         [
-        ||  <?{
-                my $longname := $<longname>.Str;
-                pir::substr($longname, 0, 2) eq '::' || $*W.is_name(parse_name($longname))
-            }>
-            <.unsp>? [ <?before '['> '[' ~ ']' <arglist> ]?
+        ||  <?{ pir::substr($<longname>.Str, 0, 2) eq '::' || $*W.is_name(@longname) }>
+            <.unsp>?
+            [
+                <?{ $*W.is_type(@longname) }>
+                <?before '['> '[' ~ ']' <arglist>
+            ]?
         || <args>
         ]
     }