Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1410.mcz
==================== Summary ====================
Name: Kernel-mt.1410 Author: mt Time: 27 August 2021, 8:01:02.129421 am UUID: bfb40b87-1a6b-0e47-a620-5d8b4de5ca04 Ancestors: Kernel-mt.1409
Adds missing changes in #roundUpTo:.
=============== Diff against Kernel-eem.1408 ===============
Item was changed: ----- Method: Number>>roundDownTo: (in category 'truncation and round off') ----- roundDownTo: aNumber "Answer the next multiple of aNumber toward negative infinity that is nearest the receiver." "Examples: 3.1479 roundDownTo: 0.01 -> 3.14 3.1479 roundDownTo: 0.1 -> 3.1 1923 roundDownTo: 10 -> 1920 3.1479 roundDownTo: 0.005 -> 3.145 -3.1479 roundDownTo: 0.01 -> -3.15" + ^ aNumber isInteger + ifTrue: [self roundDownToInteger: aNumber] + ifFalse: [(self/aNumber) floor * aNumber]! - ^(self/aNumber) floor * aNumber!
Item was added: + ----- Method: Number>>roundDownToInteger: (in category 'truncation and round off') ----- + roundDownToInteger: aNumber + + ^ self - (self \ aNumber)!
Item was changed: ----- Method: Number>>roundUpTo: (in category 'truncation and round off') ----- roundUpTo: aNumber "Answer the next multiple of aNumber toward infinity that is nearest the receiver." "Examples: 3.1479 roundUpTo: 0.01 -> 3.15 3.1479 roundUpTo: 0.1 -> 3.2 1923 roundUpTo: 10 -> 1930 3.1479 roundUpTo: 0.005 -> 3.15 -3.1479 roundUpTo: 0.01 -> -3.14"
+ ^ aNumber isInteger + ifTrue: [self roundUpToInteger: aNumber] + ifFalse: [(self/aNumber) ceiling * aNumber]! - ^(self/aNumber) ceiling * aNumber!
Item was added: + ----- Method: Number>>roundUpToInteger: (in category 'truncation and round off') ----- + roundUpToInteger: aNumber + + | rem | + ^ (rem := self \ aNumber) ~= 0 + ifTrue: [self + aNumber - rem] + ifFalse: [self]!
packages@lists.squeakfoundation.org