From 0f63bbed686ea70a0d20b33c300c3b5b934e7a8d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 28 Mar 2013 15:00:21 -0700
Subject: [PATCH] math.ratios: faster M\ ratio mod.

---
 basis/math/ratios/ratios.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/math/ratios/ratios.factor b/basis/math/ratios/ratios.factor
index 2464125d22..cb6dc29760 100644
--- a/basis/math/ratios/ratios.factor
+++ b/basis/math/ratios/ratios.factor
@@ -75,5 +75,5 @@ M: ratio * 2>fraction [ * ] 2bi@ / ;
 M: ratio / scale / ;
 M: ratio /i scale /i ;
 M: ratio /f scale /f ;
-M: ratio mod 2dup /i * - ;
+M: ratio mod scale+d [ mod ] [ / ] bi* ;
 M: ratio /mod scale+d [ /mod ] [ / ] bi* ;