[Pkg] The Trunk: Kernel-cmm.914.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 26 22:28:20 UTC 2015


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!



More information about the Packages mailing list