Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1347.mcz

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

Name: Kernel-eem.1347
Author: eem
Time: 9 October 2020, 12:12:35.47215 pm
UUID: a8ab437c-2eac-4257-a403-12d21ea16588
Ancestors: Kernel-eem.1346

Reduce compileCue:environment:classified:withStamp:notifying:logSource: to compileCue:classified:withStamp:logSource: by deriving parameteras from the cue, as intended.

=============== Diff against Kernel-eem.1346 ===============

Item was changed:
  ----- Method: ClassDescription>>compile:environment:classified:withStamp:notifying:logSource: (in category 'compiling') -----
  compile: text environment: anEnvironment classified: category withStamp: changeStamp notifying: requestor logSource: logSource
  
  	^self
  		compileCue: (CompilationCue
+ 						source: text
+ 						class: self
+ 						environment: anEnvironment
+ 						requestor: requestor)
- 							source: text
- 							class: self
- 							environment: anEnvironment
- 							requestor: requestor)
- 		environment: anEnvironment
  		classified: category
  		withStamp: changeStamp
- 		notifying: requestor
  		logSource: logSource!

Item was added:
+ ----- Method: ClassDescription>>compileCue:classified:withStamp:logSource: (in category 'compiling') -----
+ compileCue: compilationCue classified: category withStamp: changeStamp logSource: logSource
+ 
+ 	| methodAndNode methodNode selector |
+ 	methodNode := self newCompiler compile: compilationCue ifFail: [^nil].
+ 	methodAndNode := CompiledMethodWithNode 
+ 							generateMethodFromNode: methodNode 
+ 							trailer: (compilationCue methodTrailer ifNil:
+ 										[self defaultMethodTrailerIfLogSource: logSource]).
+ 	selector := methodAndNode selector.
+ 	logSource ifTrue:
+ 		[self
+ 			logMethodSource: compilationCue source
+ 			forMethodWithNode: methodAndNode 
+ 			inCategory: category
+ 			withStamp: changeStamp
+ 			notifying: compilationCue requestor.
+ 		RecentMessages default
+ 			recordSelector: selector
+ 			forClass: methodAndNode method methodClass
+ 			inEnvironment: compilationCue environment].
+ 	self
+ 		addAndClassifySelector: selector
+ 		withMethod: methodAndNode method
+ 		inProtocol: category
+ 		notifying: compilationCue requestor.
+ 	self instanceSide
+ 		noteCompilationOf: selector
+ 		meta: self isClassSide.
+ 	^selector!

Item was removed:
- ----- Method: ClassDescription>>compileCue:environment:classified:withStamp:notifying:logSource: (in category 'compiling') -----
- compileCue: compilationCue environment: anEnvironment classified: category withStamp: changeStamp notifying: requestor logSource: logSource
- 
- 	| methodAndNode methodNode selector |
- 	methodNode := self newCompiler compile: compilationCue ifFail: [^nil].
- 	methodAndNode := CompiledMethodWithNode 
- 							generateMethodFromNode: methodNode 
- 							trailer: (compilationCue methodTrailer ifNil:
- 										[self defaultMethodTrailerIfLogSource: logSource]).
- 	selector := methodAndNode selector.
- 	logSource ifTrue:
- 		[self
- 			logMethodSource: compilationCue source
- 			forMethodWithNode: methodAndNode 
- 			inCategory: category
- 			withStamp: changeStamp
- 			notifying: requestor.
- 		RecentMessages default
- 			recordSelector: selector
- 			forClass: methodAndNode method methodClass
- 			inEnvironment: anEnvironment].
- 	self
- 		addAndClassifySelector: selector
- 		withMethod: methodAndNode method
- 		inProtocol: category
- 		notifying: requestor.
- 	self instanceSide
- 		noteCompilationOf: selector
- 		meta: self isClassSide.
- 	^selector!