From 49d34ab8a7ea865108a16d8b54bb9d7316e5ac49 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 22 Jul 2008 04:44:44 -0500
Subject: [PATCH] Cleanup

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

diff --git a/extra/math/ratios/ratios.factor b/extra/math/ratios/ratios.factor
index b71a34022a..6569ee9540 100755
--- a/extra/math/ratios/ratios.factor
+++ b/extra/math/ratios/ratios.factor
@@ -51,5 +51,5 @@ M: ratio * 2>fraction * >r * r> / ;
 M: ratio / scale / ;
 M: ratio /i scale /i ;
 M: ratio /f scale /f ;
-M: ratio mod 2dup >r >r /i r> r> rot * - ;
+M: ratio mod [ /i ] 2keep rot * - ;
 M: ratio /mod [ /i ] 2keep mod ;