--- a/Fraction.st Fri Mar 28 14:55:09 2003 +0100
+++ b/Fraction.st Mon Mar 31 11:02:44 2003 +0200
@@ -755,7 +755,10 @@
!Fraction methodsFor:'private'!
reduced
- "reduce the receiver"
+ "reduce the receiver; divide the numerator and denominator by their
+ greatest common divisor; if the result is integral, return an Integer.
+ Otherwise, return the normalized receiver.
+ (i.e. this is destructive wrt. the instance values)"
|gcd den|
@@ -898,7 +901,7 @@
!Fraction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.60 2002-11-26 09:57:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.61 2003-03-31 09:02:44 cg Exp $'
! !
Fraction initialize!