math.ratios: faster M\ ratio mod.

db4
John Benediktsson 2013-03-28 15:00:21 -07:00
parent 7c62a94ce6
commit b38f42f73c
1 changed files with 1 additions and 1 deletions

View File

@ -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* ;