Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

A couple of pir:: => nqp:: in Perl6::World.

  • Loading branch information...
commit d00a57513ffb135113d340a8db04de1b3f69e5bb 1 parent c22a391
Jonathan Worthington authored

Showing 1 changed file with 2 additions and 4 deletions. Show diff stats Hide diff stats

  1. 6  src/Perl6/World.pm
6  src/Perl6/World.pm
@@ -914,9 +914,7 @@ class Perl6::World is HLL::World {
914 914
         my $precomp;
915 915
         my $compiler_thunk := {
916 916
             # Fix up GLOBAL.
917  
-            my $rns    := pir::get_root_namespace__P();
918  
-            my $p6_pns := $rns{'perl6'};
919  
-            $p6_pns{'GLOBAL'} := $*GLOBALish;
  917
+            nqp::bindhllsym('perl6', 'GLOBAL', $*GLOBALish);
920 918
             
921 919
             # Compile the block.
922 920
             $precomp := self.compile_in_context($code_past, $code_type, $slp_type);
@@ -1338,7 +1336,7 @@ class Perl6::World is HLL::World {
1338 1336
     # Adds a numeric constant value (int or num) to the constants table.
1339 1337
     # Returns PAST to do  the lookup of the constant.
1340 1338
     method add_numeric_constant($/, $type, $value) {
1341  
-        if $type eq 'Int' && pir::typeof__SP($value) eq 'Int' {
  1339
+        if $type eq 'Int' && (try $value.HOW.name($value)) eq 'Int' {
1342 1340
             if nqp::isbig_I($value) {
1343 1341
                 # cannot unbox to int without loss of information
1344 1342
                 return self.add_constant('Int', 'bigint', $value);

0 notes on commit d00a575

Please sign in to comment.
Something went wrong with that request. Please try again.