From 260acff9523601dcf3e4345d175eefe650cde811 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 27 Feb 2008 23:09:29 -0600
Subject: [PATCH] add coprime? to math.primes

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

diff --git a/extra/math/primes/primes.factor b/extra/math/primes/primes.factor
index 68ab5b3221..685124e4e9 100644
--- a/extra/math/primes/primes.factor
+++ b/extra/math/primes/primes.factor
@@ -47,3 +47,5 @@ PRIVATE>
   primes-upto
   >r 1- next-prime r>
   [ [ <=> ] binsearch ] keep [ length ] keep <slice> ; foldable
+
+: coprime? ( a b -- ? ) gcd nip 1 = ; foldable