From ebf115ced987e4a50ace965cebaa6301c9a9dc87 Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Thu, 29 Sep 2011 19:38:12 +0200
Subject: [PATCH] prefix:<->(num). Wracks havoc of tests becase -Inf now
 generates invalid PIR (set $N100, Inf)

---
 src/core/Num.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/core/Num.pm b/src/core/Num.pm
index 5aac8d9206a..8a3d7f45dfd 100644
--- 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)))