prefix:<->(num). Wracks havoc of tests becase -Inf now generates inva…

…lid PIR (set $N100, Inf)
rakudo · Sep 29, 2011 · ebf115c · ebf115c
1 parent 1cb3f8d
commit ebf115c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -221,6 +221,12 @@ multi postfix:<-->(Num:U \$a is rw) {   # XXX
 multi prefix:<->(Num:D \$a) {
     nqp::p6box_n(nqp::neg_n(nqp::unbox_n($a)))
 }
+multi prefix:<->(num $a) {
+    nqp::want(
+        nqp::p6box_n(nqp::neg_n($a)),
+        'Nn', nqp::neg_n($a),
+    );
+}
 
 multi prefix:<abs>(Num:D \$a) {
     nqp::p6box_n(nqp::abs_n(nqp::unbox_n($a)))