diff -r 45595a437961 -r bb1fee4735ae Integer.st --- a/Integer.st Wed Jul 26 13:50:34 2017 +0200 +++ b/Integer.st Wed Jul 26 17:03:02 2017 +0200 @@ -794,8 +794,6 @@ "Modified: / 15.11.1999 / 20:35:20 / cg" ! ! - - !Integer class methodsFor:'class initialization'! initialize @@ -852,7 +850,6 @@ "Modified: 18.7.1996 / 12:26:38 / cg" ! ! - !Integer class methodsFor:'prime numbers'! flushPrimeCache @@ -1230,7 +1227,6 @@ ^ self == Integer ! ! - !Integer methodsFor:'Compatibility-Dolphin'! highWord @@ -4826,11 +4822,7 @@ ]. "/ Not absolutely correct, but was broken much worse before. - limit := self sqrt. - limit isNaN ifTrue:[ - DomainError raiseRequestErrorString:'Number too large for current fallback implementation.'. - ]. - limit := limit asInteger. + limit := self integerSqrt. (firstFewPrimes last+2) to:limit by:2 do:[:i | (self \\ i) == 0 ifTrue:[ ^ false ]. ]. @@ -4989,7 +4981,6 @@ "Created: / 09-01-2012 / 17:18:06 / cg" ! ! - !Integer methodsFor:'special modulo arithmetic'! add_32:anInteger