For registering parametric roles in the stage one set of built-ins, !…

…meta_compose must not depend on having a constructed Perl6 Compiler object yet.
rakudo · Apr 3, 2009 · 4a7fe22 · 4a7fe22
1 parent b015a2a
commit 4a7fe22
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/builtins/guts.pir b/src/builtins/guts.pir
@@ -465,8 +465,9 @@ is composed (see C<!meta_compose> below).
     .param int also
 
     .local pmc nsarray
-    $P0 = compreg 'Perl6'
-    nsarray = $P0.'parse_name'(name)
+    $P0 = get_hll_global [ 'Perl6';'Compiler' ], 'parse_name'
+    $P1 = null
+    nsarray = $P0($P1, name)
 
     if type == 'package' goto package
     if type == 'module' goto package