Only return True on whole numbers, Zoffix++

lizmat · lizmat · commit 8c56c1114cc6 · 2015-12-27T22:51:12.000+01:00
This is an alternate version of PR #656
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -389,7 +389,8 @@ multi sub is-prime(Int:D \i) {
     nqp::p6bool(nqp::isprime_I(nqp::decont(i), nqp::unbox_i(100)));
 }
 multi sub is-prime(\i) {
-    nqp::p6bool(nqp::isprime_I(nqp::decont(i.Int), nqp::unbox_i(100)));
+    i == i.floor
+     && nqp::p6bool(nqp::isprime_I(nqp::decont(i.Int), nqp::unbox_i(100)));
 }
 
 proto sub expmod($, $, $) is pure  {*}

Original file line number	Diff line number	Diff line change
`@@ -389,7 +389,8 @@ multi sub is-prime(Int:D \i) {`
`389`	`389`	`nqp::p6bool(nqp::isprime_I(nqp::decont(i), nqp::unbox_i(100)));`
`390`	`390`	`}`
`391`	`391`	`multi sub is-prime(\i) {`
`392`		`- nqp::p6bool(nqp::isprime_I(nqp::decont(i.Int), nqp::unbox_i(100)));`
	`392`	`+ i == i.floor`
	`393`	`+ && nqp::p6bool(nqp::isprime_I(nqp::decont(i.Int), nqp::unbox_i(100)));`
`393`	`394`	`}`
`394`	`395`
`395`	`396`	`proto sub expmod($, $, $) is pure {*}`