A few s/new/root_new/ for the (minor) win.

rakudo · Jul 6, 2009 · 1340dd4 · 1340dd4
1 parent 0e8a86a
commit 1340dd4
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/builtins/globals.pir b/src/builtins/globals.pir
@@ -55,7 +55,7 @@ src/builtins/globals.pir - initialize miscellaneous global variables
 
     ## create basic $*CWD
     .local pmc os
-    os = new ['OS']
+    os = root_new ['parrot';'OS']
     $S0 = os."cwd"()
     $P0 = box $S0
     set_hll_global '$CWD', $P0

diff --git a/src/builtins/io.pir b/src/builtins/io.pir
@@ -186,7 +186,7 @@ true value is returned.
     # Try to change directory; if we fail, exception thrown, so catch
     # it and fail if needed.
     .local pmc os
-    os = new ['OS']
+    os = root_new ['parrot';'OS']
     push_eh failure
     os.'chdir'(newdir)
     pop_eh

diff --git a/src/parrot/P6role.pir b/src/parrot/P6role.pir
@@ -28,7 +28,7 @@ Puns the role to a class and returns that class.
     # Otherwise, need to create a punned class.
     .local pmc p6meta, metaclass, proto
     p6meta = get_root_global [.RAKUDO_HLL ; 'Perl6Object'], '$!P6META'
-    metaclass = new ['Class']
+    metaclass = new ['parrot';'Class']
     $P0 = box 'class'
     setprop metaclass, 'pkgtype', $P0
     # Compose ourself and any roles we do.