[Pkg] The Trunk: System-cmm.606.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Oct 25 15:43:55 UTC 2013


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

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

Name: System-cmm.606
Author: cmm
Time: 25 October 2013, 10:41:38.197 am
UUID: 6a901946-a756-42d8-a453-f727b8dfad32
Ancestors: System-dtl.605

- Correct initialization of RecentMessages in case a new instance is ever made (and for the test cases).
- Fix revertMostRecent.

=============== Diff against System-dtl.605 ===============

Item was changed:
  ----- Method: RecentMessages>>initialize (in category 'initialize-release') -----
  initialize
  	super initialize.
+ 	methodReferences := OrderedCollection new: (maximumSubmissionCount := 30).
+ 	isSuspended := false!
- 	methodReferences := OrderedCollection new: 30!

Item was changed:
  ----- Method: RecentMessages>>revertMostRecent (in category 'accessing') -----
  revertMostRecent
  	"If the most recent method submission was a method change, revert
  	that change, and if it was a submission of a brand-new method, 
  	remove that method."
  	| changeRecords lastSubmission theClass theSelector |
  	methodReferences ifEmpty: [ ^ Beeper beep ].
+ 	lastSubmission := self mostRecent.
- 	lastSubmission := methodReferences last.
  	theClass := lastSubmission actualClass ifNil: [ ^ Beeper beep ].
  	theSelector := lastSubmission methodSymbol.
  	changeRecords := theClass changeRecordsAt: theSelector.
  	changeRecords isEmptyOrNil ifTrue: [ ^ Beeper beep ].
  	changeRecords size = 1
  		ifTrue: [ "method has no prior version, so reverting in this case means removing"
  			theClass removeSelector: theSelector ]
  		ifFalse: [ changeRecords second fileIn ]
  !



More information about the Packages mailing list