Fixes: pharo-project#4765

dupriezt · Sep 28, 2019 · 340826a · 340826a
1 parent ae56653
commit 340826a
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 12 deletions.
diff --git a/src/Collections-Strings/String.class.st b/src/Collections-Strings/String.class.st
@@ -2519,10 +2519,8 @@ String >> truncateTo: smallSize [
 	"return myself or a copy shortened to smallSize."
 
 	^ self size <= smallSize
-		ifTrue:
-			[self]
-		ifFalse:
-			[self copyFrom: 1 to: smallSize]
+		ifTrue: [ self ]
+		ifFalse: [ self copyFrom: 1 to: smallSize ]
 ]
 
 { #category : #converting }

diff --git a/src/Kernel/Number.class.st b/src/Kernel/Number.class.st
@@ -777,14 +777,15 @@ Number >> stringForReadout [
 
 { #category : #'truncation and round off' }
 Number >> truncateTo: aNumber [ 
-	"Answer the next multiple of aNumber toward zero that is nearest the receiver.
-	Examples:
-               3.1479 truncateTo: 0.01 -> 3.14
-               3.1479 truncateTo: 0.1 -> 3.1
-               1923 truncateTo: 10 -> 1920
-               3.1479 truncateTo: 0.005 -> 3.145
-               -3.1479 truncateTo: 0.01 -> -3.14"
-
+	"Answer the next multiple of aNumber toward zero that is nearest the receiver."
+	"(3.1479 truncateTo: 0.01) >>>  3.14"
+   "(3.1479 truncateTo: 0.1) >>>  3.1"
+	"(1923 truncateTo: 10) >>>  1920"
+	"(1929 truncateTo: 10) >>>  1920"
+	"(-1929 truncateTo: 10) >>>  -1920"
+	"(3.1479 truncateTo: 0.005) >>>  3.145"
+	"(-3.1479 truncateTo: 0.01) >>>  -3.14"
+
 	^(self quo: aNumber) * aNumber
 ]