math.primes: commas look better.

diff --git a/basis/math/primes/primes.factor b/basis/math/primes/primes.factor
index 642f8ef8e4b5a74d48f3aca153a15c4eb59b78e5..8ed1675ca7f3185649ced3abbc6a3619087039ab 100644 (file)
--- a/basis/math/primes/primes.factor
+++ b/basis/math/primes/primes.factor
@@ -9,10 +9,10 @@ IN: math.primes
 <PRIVATE
 
 : look-in-bitmap ( n -- ? )
-    integer>fixnum $[ 8999999 sieve ] marked-unsafe? ; inline
+    integer>fixnum $[ 8,999,999 sieve ] marked-unsafe? ; inline
 
 : (prime?) ( n -- ? )
-    dup 8999999 <= [ look-in-bitmap ] [ miller-rabin ] if ;
+    dup 8,999,999 <= [ look-in-bitmap ] [ miller-rabin ] if ;
 
 : simple? ( n -- ? )
     { [ even? ] [ 3 divisor? ] [ 5 divisor? ] } 1|| ;