Integer.st
changeset 15902 873997dcf4cf
parent 15841 7c222b07168f
child 15911 0dfd943efdf5
--- a/Integer.st	Thu Jan 23 17:11:41 2014 +0100
+++ b/Integer.st	Thu Jan 23 17:11:45 2014 +0100
@@ -1384,6 +1384,7 @@
     "
 ! !
 
+
 !Integer methodsFor:'bcd conversion'!
 
 decodeFromBCD
@@ -4998,11 +4999,8 @@
      |m|
 
      m := self new modulus:123456789901398721398721931729371293712943794254034548369328469438562948623498659238469234659823469823658423659823658.
-     Time millisecondsToRun:[
-        100000 timesRepeat:[
-            m modulusOf:874928459437598375937451931729371293712943794254034548369328469438562948623498659238469234659823469823658423659823658.
-        ]
-     ]
+    m modulusOf:874928459437598375937451931729371293712943794254034548369328469438562948623498659238469234659823469823658423659823658.
+10730930127807326146398409623772237722337234475792709784029183368622308259008044569184592041059181058049458041058052     ]
     "
 
     "Modified: / 3.5.1999 / 14:30:32 / stefan"
@@ -5020,11 +5018,11 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.288 2013-12-02 20:00:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.289 2014-01-23 16:11:45 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.288 2013-12-02 20:00:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.289 2014-01-23 16:11:45 stefan Exp $'
 ! !