Make sure NaN, Inf etc are Perl 6 Nums, not Parrot Floats, so we disp…

…atch to the right sin, etc.
rakudo · Feb 13, 2010 · 6090323 · 6090323
1 parent b7fb2e1
commit 6090323
Showing 1 changed file with 16 additions and 3 deletions.
diff --git a/src/cheats/num.pm b/src/cheats/num.pm
@@ -6,7 +6,20 @@ augment class Num {
 
 INIT {
     pir::set_hll_global__vSP('NaN', pir::set__NS('NaN'));
-    pir::set_hll_global__vSP('Inf', pir::set__NS('Inf'));
-    pir::set_hll_global__vSP('+Inf', pir::set__NS('Inf'));
-    pir::set_hll_global__vSP('-Inf', -pir::set__NS('Inf'));
+        pir::set_hll_global__vSP('NaN', Q:PIR {
+        %r = new ['Num']
+        $N0 = 'NaN'
+        assign %r, $N0
+    });
+    pir::set_hll_global__vSP('Inf', Q:PIR {
+        %r = new ['Num']
+        $N0 = 'Inf'
+        assign %r, $N0
+    });
+    pir::set_hll_global__vSP('+Inf', Q:PIR {
+        %r = new ['Num']
+        $N0 = 'Inf'
+        assign %r, $N0
+    });
+    pir::set_hll_global__vSP('-Inf', -pir::get_hll_global__PS('Inf'));
 }