math.ratios: faster M\ ratio /mod.

2013-03-28 14:56:47 -07:00 · 2013-03-28 14:56:47 -07:00 · 7c62a94ce6
parent ff72d10fda
commit 7c62a94ce6
1 changed files with 1 additions and 1 deletions
--- a/basis/math/ratios/ratios.factor
+++ b/basis/math/ratios/ratios.factor
@ -76,4 +76,4 @@ M: ratio / scale / ;
 M: ratio /i scale /i ;
 M: ratio /f scale /f ;
 M: ratio mod 2dup /i * - ;
-M: ratio /mod [ /i ] 2keep mod ;
+M: ratio /mod scale+d [ /mod ] [ / ] bi* ;