steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.ratios: faster abs and neg? on ratios.

db4
John Benediktsson 2014-06-05 10:53:02 -07:00
parent 05c35ebda3
commit 96884eab2a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/ratios/ratios.factor
View File

@ -77,3 +77,5 @@ M: ratio /i scale /i ;
M: ratio /f scale /f ;
M: ratio mod scale+d [ mod ] [ / ] bi* ;
M: ratio /mod scale+d [ /mod ] [ / ] bi* ;
M: ratio abs dup neg? [ >fraction [ neg ] dip fraction> ] when ;
M: ratio neg? numerator neg? ; inline