The Trunk: Kernel-cmm.914.mcz

Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-cmm.914.mcz

==================== Summary ====================

Name: Kernel-cmm.914
Author: cmm
Time: 26 March 2015, 5:05:35.834 pm
UUID: 2a496e8d-58d0-46cc-9989-f7525275bfd9
Ancestors: Kernel-eem.913

Include filed-in methods in the RecentMessages list.

=============== Diff against Kernel-eem.913 ===============

Item was changed:
  ----- Method: ClassDescription>>compile:classified:withStamp:notifying:logSource: (in category 'compiling') -----
+ compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource
- compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource
-
  | methodAndNode selector |
  methodAndNode := self
  compile: text asString
  notifying: requestor
  trailer: (self defaultMethodTrailerIfLogSource: logSource)
+ ifFail: [ ^ nil ].
- ifFail: [ ^nil ].
  selector := methodAndNode selector.
+ logSource ifTrue:
+ [ self
+ logMethodSource: text
+ forMethodWithNode: methodAndNode
+ inCategory: category
+ withStamp: changeStamp
+ notifying: requestor.
+ RecentMessages default
+ recordSelector: selector
+ forClass: methodAndNode method methodClass
+ inEnvironment: CurrentEnvironment signal ].
+ self
+ addAndClassifySelector: selector
+ withMethod: methodAndNode method
+ inProtocol: category
+ notifying: requestor.
+ self instanceSide
+ noteCompilationOf: selector
+ meta: self isClassSide.
+ ^ selector!
- logSource ifTrue: [
- self logMethodSource: text forMethodWithNode: methodAndNode
- inCategory: category withStamp: changeStamp notifying: requestor.
- ].
- self addAndClassifySelector: selector withMethod: methodAndNode
- method inProtocol: category notifying: requestor.
- self instanceSide noteCompilationOf: selector meta: self isClassSide.
- ^selector!