From 6e9dfc86c3e4e667eebf25b9c94e4ca008646303 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 14 Jul 2015 17:35:52 -0700
Subject: [PATCH] math.primes: commas look better.

---
 basis/math/primes/primes.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/math/primes/primes.factor b/basis/math/primes/primes.factor
index 642f8ef8e4..8ed1675ca7 100644
--- 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|| ;