Process categoricals at import time.

rakudo · Oct 21, 2012 · 78cf73f · 78cf73f
1 parent 2ad86ea
commit 78cf73f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Perl6/World.pm b/src/Perl6/World.pm
@@ -286,6 +286,12 @@ class Perl6::World is HLL::World {
         my $slp := self.get_static_lexpad($target);
         for %to_install {
             $slp.add_static_value($_.key, $_.value, 0, 0);
+            my $categorical := match($_.key, /^ '&' (\w+) ':<' (.+) '>' $/);
+            if $categorical {
+                $/.CURSOR.add_categorical(~$categorical[0], ~$categorical[1],
+                    ~$categorical[0] ~ ':sym<' ~$categorical[1] ~ '>',
+                    $_.key);
+            }
         }
 
         1;