Number.st
changeset 21812 4d60b6626208
parent 21789 abf8de4b8720
child 21815 e017f9904c30
--- a/Number.st	Thu Jun 15 09:57:14 2017 +0200
+++ b/Number.st	Thu Jun 15 09:58:00 2017 +0200
@@ -521,7 +521,6 @@
     "Modified (comment): / 08-06-2017 / 13:58:36 / mawalch"
 ! !
 
-
 !Number class methodsFor:'constants'!
 
 decimalPointCharacter
@@ -729,7 +728,6 @@
     "
 ! !
 
-
 !Number class methodsFor:'private'!
 
 readMantissaAndScaleFrom:aStream radix:radix
@@ -804,7 +802,6 @@
     ^ self == Number
 ! !
 
-
 !Number methodsFor:'Compatibility-Squeak'!
 
 asSmallAngleDegrees
@@ -950,7 +947,6 @@
     "
 ! !
 
-
 !Number methodsFor:'coercing & converting'!
 
 i
@@ -986,15 +982,17 @@
     scaledEpsilon := nE * diff class epsilon.
 
     diff <= scaledEpsilon ifTrue:[
-	"compare for really close values near 0"
-	^ true.
-    ] ifFalse:[
-	"scaled comparison for larger values"
-	f1 := self abs.
-	f2 := aNumber abs.
-	largest := f1 > f2 ifTrue:[f1] ifFalse:[f2].
-	^ (diff <= (scaledEpsilon * largest)).
+        "compare for really close values near 0"
+        ^ true.
     ].
+
+    "scaled comparison for larger values"
+    f1 := self abs.
+    f2 := aNumber abs.
+    largest := f1 > f2 ifTrue:[f1] ifFalse:[f2].
+    ^ (diff <= (scaledEpsilon * largest)).
+
+    "Modified: / 15-06-2017 / 09:55:15 / cg"
 ! !
 
 !Number methodsFor:'converting'!
@@ -2811,7 +2809,6 @@
     "Modified: / 5.11.2001 / 17:54:22 / cg"
 ! !
 
-
 !Number class methodsFor:'documentation'!
 
 version