--- a/Fraction.st Mon Jul 06 21:59:18 1998 +0200
+++ b/Fraction.st Thu Jul 09 10:06:37 1998 +0200
@@ -437,14 +437,20 @@
as the receiver, false otherwise"
(aNumber isMemberOf:SmallInteger) ifTrue:[
- (denominator = 1) ifFalse:[^ false].
- ^ numerator = aNumber
+ (denominator = 1) ifFalse:[^ false].
+ ^ numerator = aNumber
].
aNumber isFraction ifTrue:[
- (numerator = aNumber numerator) ifFalse:[^ false].
- ^ denominator = aNumber denominator
+ (numerator = aNumber numerator) ifFalse:[^ false].
+ ^ denominator = aNumber denominator
+ ].
+ (aNumber isInteger) ifTrue:[
+ (denominator = 1) ifFalse:[^ false].
+ ^ numerator = aNumber
].
^ self retry:#= coercing:aNumber
+
+ "Modified: / 7.7.1998 / 17:17:07 / cg"
!
> aNumber
@@ -660,6 +666,6 @@
!Fraction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.41 1997-09-02 20:52:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.42 1998-07-09 08:06:37 cg Exp $'
! !
Fraction initialize!