Number.st
changeset 21992 f46021127b61
parent 21988 e3f286797775
child 22043 56a894e6e543
--- a/Number.st	Fri Jul 07 14:14:32 2017 +0200
+++ b/Number.st	Tue Jul 11 13:32:17 2017 +0200
@@ -588,6 +588,7 @@
     "Modified (comment): / 08-06-2017 / 13:58:36 / mawalch"
 ! !
 
+
 !Number class methodsFor:'constants'!
 
 e
@@ -830,6 +831,7 @@
     "
 ! !
 
+
 !Number class methodsFor:'private'!
 
 readMantissaAndScaleFrom:aStream radix:radix
@@ -924,6 +926,7 @@
     ^ self == Number
 ! !
 
+
 !Number methodsFor:'Compatibility-Squeak'!
 
 asSmallAngleDegrees
@@ -1069,6 +1072,7 @@
     "
 ! !
 
+
 !Number methodsFor:'coercing & converting'!
 
 i
@@ -1679,14 +1683,16 @@
     or:[self generality < 1.0 generality]) ifTrue:[
         |f|
 
-        (f := self asLongFloat) isFinite ifTrue:[
+        "/ do not make this a longfloat;
+        "/  r will return a longFloat then, and Image roated will fail then...
+        (f := self asFloat) isFinite ifTrue:[
             ^ f sqrt.
         ].
     ].
     "/ very slow fallback
     ^ self sqrt_withAccuracy:self epsilon
 
-    "Modified: / 05-07-2017 / 17:24:11 / cg"
+    "Modified (format): / 11-07-2017 / 13:32:02 / cg"
 !
 
 sqrtWithErrorLessThan:epsilon
@@ -3286,6 +3292,7 @@
     "Modified: / 5.11.2001 / 17:54:22 / cg"
 ! !
 
+
 !Number class methodsFor:'documentation'!
 
 version