math.primes.safe: simplify.

2017-02-08 11:14:10 -08:00 · 2017-02-08 11:14:10 -08:00 · 9d2e62f8e1
parent 7ed6379633
commit 9d2e62f8e1
1 changed files with 1 additions and 1 deletions
--- a/basis/math/primes/safe/safe.factor
+++ b/basis/math/primes/safe/safe.factor
@ -17,7 +17,7 @@ PRIVATE>

 : safe-prime? ( q -- ? )
    {
-        [ 1 - 2 / dup integer? [ prime? ] [ drop f ] if ]
+        [ dup odd? [ 1 - 2 / prime? ] [ drop f ] if ]
        [ prime? ]
    } 1&& ;