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

math.ratios: slight fix to M\ ratio recip for negative ratios.

db4
John Benediktsson 2012-09-02 10:08:00 -07:00
parent 009fb4249e
commit 8ed541b26b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,7 +41,7 @@ M: integer recip
] if-zero ; ] if-zero ;
M: ratio recip M: ratio recip
>fraction swap fraction> ; >fraction swap dup 0 < [ [ neg ] bi@ ] when fraction> ;
M: ratio hashcode* M: ratio hashcode*
nip >fraction [ hashcode ] bi@ bitxor ; nip >fraction [ hashcode ] bi@ bitxor ;