Add IS-NAN-OR-INF helper sub

This is backend dependent atm, so concentrate backend dependendness
rakudo · Jan 12, 2015 · d3d2ebb · d3d2ebb
1 parent 107a5c2
commit d3d2ebb
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/core/operators.pm b/src/core/operators.pm
@@ -353,4 +353,13 @@ sub infix:<andthen>(*@a) {
     $current;
 }
 
+sub IS-NAN-OR-INF(\val) {
+#?if !parrot    
+    nqp::istype(val, Num) && nqp::isnanorinf(val);
+#?endif             
+#?if parrot         
+    nqp::isnanorinf(val);
+#?endif   
+}
+
 # vim: ft=perl6 expandtab sw=4