micro-optimize prefix:<!> and not on Bool objects

rakudo · Nov 15, 2014 · 661439a · 661439a
1 parent d40fd5d
commit 661439a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/core/Bool.pm b/src/core/Bool.pm
@@ -47,12 +47,12 @@ multi prefix:<so>(Bool:D \a) { a }
 multi prefix:<so>(Mu \a) { a.Bool }
 
 proto prefix:<!>(Mu $) is pure { * }
-multi prefix:<!>(Bool \a) { nqp::p6bool(a ?? 0 !! 1) }
-multi prefix:<!>(Mu \a) { nqp::p6bool(a.Bool ?? 0 !! 1) }
+multi prefix:<!>(Bool \a) { nqp::p6bool(nqp::not_i(nqp::istrue(a))) }
+multi prefix:<!>(Mu \a) { nqp::p6bool(nqp::not_i(nqp::istrue(a))) }
 
 proto prefix:<not>(Mu $) is pure { * }
-multi prefix:<not>(Bool \a) { nqp::p6bool(a ?? 0 !! 1) }
-multi prefix:<not>(Mu \a) { nqp::p6bool(a.Bool ?? 0 !! 1) }
+multi prefix:<not>(Bool \a) { nqp::p6bool(nqp::not_i(nqp::istrue(a))) }
+multi prefix:<not>(Mu \a) { nqp::p6bool(nqp::not_i(nqp::istrue(a))) }
 
 proto prefix:<?^>(Mu $) is pure { * }
 multi prefix:<?^>(Mu \a) { not a }