[Pkg] The Trunk: Monticello-ul.602.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.602.mcz

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

Name: Monticello-ul.602
Author: ul
Time: 21 October 2014, 4:58:16.892 pm
UUID: e46b988a-988b-4d6d-9d98-e241bdd6239f
Ancestors: Monticello-bf.601

Create the method with the right trailer in MethodAnnotation >> #createCompiledMethod. Depends on Kernel-ul.880.

=============== Diff against Monticello-bf.601 ===============

Item was changed:
  ----- Method: MethodAddition>>createCompiledMethod (in category 'as yet unclassified') -----
  createCompiledMethod
  	| notification |
+ 	[methodAndNode := myClass
+ 		compile: text asString
+ 		notifying: requestor
+ 		trailer: (myClass defaultMethodTrailerIfLogSource: logSource) 
+ 		ifFail: [^nil]]
- 	[methodAndNode := myClass compile: text asString notifying: requestor
- 							trailer: myClass defaultMethodTrailer ifFail: [^nil]]
  			on: SyntaxErrorNotification do: [:exc |
  				notification := exc.
  				exc pass].
  	notification ifNotNil: [notification newSource ifNotNil: [:newSource | text := newSource]].
  	selector := methodAndNode selector.
  	compiledMethod := methodAndNode method.
  	self writeSourceToLog.
  	priorMethodOrNil := myClass compiledMethodAt: selector ifAbsent: [nil].
  !