Not sure what the junk below on the commit diff is; it all looks familiar
and faintly cog-related though. Do we have the dirty-inbox problem again?
AFAIK I only touched three comments in this commit.

On Tue, Jul 27, 2010 at 8:47 PM, <commits at source.squeak.org> wrote:

> A new version of Kernel was added to project The Inbox:
> http://source.squeak.org/inbox/Kernel-cbr.475.mcz
>
> ==================== Summary ====================
>
> Name: Kernel-cbr.475
> Author: cbr
> Time: 27 July 2010, 8:47:17.817 pm
> UUID: 31fff092-aa15-4aac-9cff-0edb485a0d25
> Ancestors: Kernel-eem.474
>
> A few of the chronology classes met my current heuristic for "comment is
> too small," and though the comments were fine as is, I added an example
> usage to each just for fun.
>
> =============== Diff against Kernel-eem.474 ===============
>
> Item was changed:
>  Timespan subclass: #Week
>        instanceVariableNames: ''
>        classVariableNames: 'StartDay'
>        poolDictionaries: 'ChronologyConstants'
>        category: 'Kernel-Chronology'!
>
> + !Week commentStamp: 'cbr 7/27/2010 20:28' prior: 0!
> + I represent a week.
> +
> + To find out what days of the week on which Squeak is fun, select the
> following expression, and print it:
> +
> + Week dayNames!
> - !Week commentStamp: 'brp 5/13/2003 09:48' prior: 0!
> - I represent a week.!
>
> Item was changed:
>  Timespan subclass: #Year
>        instanceVariableNames: ''
>        classVariableNames: ''
>        poolDictionaries: ''
>        category: 'Kernel-Chronology'!
>
> + !Year commentStamp: 'cbr 7/27/2010 20:41' prior: 0!
> + I represent a year.
> +
> + Try me!! Select the following expression and print it:
> +
> + Year current daysInYear "Try me again next leap year!!"!
> - !Year commentStamp: 'dtl 7/11/2009 16:35' prior: 0!
> - I represent a year.!
>
> Item was changed:
>  Timespan subclass: #Month
>        instanceVariableNames: ''
>        classVariableNames: ''
>        poolDictionaries: 'ChronologyConstants'
>        category: 'Kernel-Chronology'!
>
> + !Month commentStamp: 'cbr 7/27/2010 20:34' prior: 0!
> + I represent a month.
> +
> + For example, to get the number of days this month, you can evaluate the
> following expression:
> +
> + Month current daysInMonth!
> - !Month commentStamp: 'brp 5/13/2003 09:48' prior: 0!
> - I represent a month.!
>
> Item was removed:
> - ----- Method: Integer>>isPrime (in category 'testing') -----
> - isPrime
> -       "Answer true if the receiver is a prime number. See isProbablyPrime
> for a probabilistic
> -       implementation that is much faster for large integers, and that is
> correct to an extremely
> -       high statistical level of confidence (effectively deterministic)."
> -
> -       self <= 1 ifTrue: [ ^false ].
> -       self even ifTrue: [ ^self = 2].
> -       3 to: self sqrtFloor by: 2 do: [ :each |
> -               self \\ each = 0 ifTrue: [ ^false ] ].
> -       ^true!
>
> Item was removed:
> - ----- Method: Float class>>twoPi (in category 'constants') -----
> - twoPi
> -
> -       ^ Twopi
> - !
>
> Item was removed:
> - ----- Method: Integer>>isProbablyPrimeWithK:andQ: (in category 'private')
> -----
> - isProbablyPrimeWithK: k andQ: q
> -       "Algorithm P, probabilistic primality test, from
> -       Knuth, Donald E. 'The Art of Computer Programming', Vol 2,
> -       Third Edition, section 4.5.4, page 395, P1-P5 refer to Knuth
> description."
> -
> -       "P1"
> -
> -       | x j y |
> -       x := (self - 2) atRandom + 1.
> -       "P2"
> -       j := 0.
> -       y := x raisedToInteger: q modulo: self.
> -       "P3"
> -
> -       [(((j = 0) & (y = 1)) | (y = (self - 1))) ifTrue: [^true].
> -       ((j > 0) & (y = 1)) ifTrue: [^false].   "P5"
> -       true]
> -                       whileTrue:
> -                               [j := j + 1.
> -                               (j < k) ifTrue: [y := y squared \\ self]
> -                               ifFalse:[^ false]]!
>
> Item was removed:
> - ----- Method: Object>>isArray (in category 'testing') -----
> - isArray
> -       ^false!
>
> Item was removed:
> - ----- Method: Integer>>raisedToInteger:modulo: (in category 'mathematical
> functions') -----
> - raisedToInteger: exp modulo: m
> -       (exp = 0) ifTrue: [^ 1].
> -       exp even
> -               ifTrue: [^ (self raisedToInteger: (exp // 2) modulo: m)
> squared \\ m]
> -               ifFalse: [^ (self * (self raisedToInteger: (exp - 1)
> modulo: m)) \\ m].!
>
>
>


-- 
Casey Ransberger
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20100727/3d940f33/attachment.htm