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

2012-09-02 10:08:00 -07:00 · 2012-09-02 10:08:00 -07:00 · 8ed541b26b
parent 009fb4249e
commit 8ed541b26b
1 changed files with 1 additions and 1 deletions
--- a/basis/math/ratios/ratios.factor
+++ b/basis/math/ratios/ratios.factor
@ -41,7 +41,7 @@ M: integer recip
    ] if-zero ;

 M: ratio recip
-    >fraction swap fraction> ;
+    >fraction swap dup 0 < [ [ neg ] bi@ ] when fraction> ;

 M: ratio hashcode*
    nip >fraction [ hashcode ] bi@ bitxor ;