Fraction.st
changeset 6063 e07421c13ca0
parent 5552 31b5cc144476
child 6064 04bde2eeb749
--- 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!