--- a/Fraction.st Mon Oct 01 23:00:30 2001 +0200
+++ b/Fraction.st Tue Oct 02 10:15:17 2001 +0200
@@ -116,8 +116,12 @@
"return the constant pi as Fraction"
^ self
- numerator: 31415926535897932384626434
- denominator:10000000000000000000000000
+ numerator: 314159265358979323846264343
+ denominator:100000000000000000000000000
+
+"/ ^ self
+"/ numerator: 314159265358979323846264338327950288419716939937510582097494459
+"/ denominator:100000000000000000000000000000000000000000000000000000000000000
"
Fraction pi
@@ -748,6 +752,6 @@
!Fraction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.50 2000-08-21 22:44:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.51 2001-10-02 08:15:03 cg Exp $'
! !
Fraction initialize!