Cleanup

diff --git a/extra/math/ratios/ratios.factor b/extra/math/ratios/ratios.factor
index b71a34022aad2ce0b44043a5d6fdbfc7e41b2ea6..6569ee9540d6c2859c055efeb1e9c9101ee93214 100755 (executable)
--- 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 ;