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

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

Name: System-eem.739
Author: eem
Time: 29 May 2015, 4:06:02.935 pm
UUID: 0b6049b8-02b1-4f6e-97eb-8776c9604f3e
Ancestors: System-cmm.738

Support for condensing sources and changes while
preserving direct history.

=============== Diff against System-cmm.738 ===============

Item was added:
+ ----- Method: ChangeRecord>>file (in category 'access') -----
+ file
+ 	^file!

Item was added:
+ ----- Method: ChangeRecord>>position: (in category 'access') -----
+ position: anInteger
+ 	"Set the position.  Dangerous!!  Used in condenseChanges implementation by a very knowledgeable client!!"
+ 	position := anInteger!

Item was added:
+ ----- Method: ChangeSet class>>directAncestryOfVersions: (in category 'scanning') -----
+ directAncestryOfVersions: changeRecords
+ 	"Take a sequence of ChangeRecords as answered by scanVersionsOf:class:meta:category:selector:
+ 	 and answer a filtered subsequence consisting only of direct ancestors.  For example, if the input is
+ 		eem 7/7/2009 20:06	7 July 2009 8:06 pm
+ 		eem 6/18/2009 19:21	18 June 2009 7:21 pm
+ 		eem 5/5/2009 12:16	5 May 2009 12:16 pm
+ 		eem 6/18/2009 19:19	18 June 2009 7:19 pm
+ 		eem 6/18/2009 18:57	18 June 2009 6:57 pm
+ 		eem 5/5/2009 12:16	5 May 2009 12:16 pm
+ 		eem 6/18/2009 18:17	18 June 2009 6:17 pm
+ 		eem 6/18/2009 18:14	18 June 2009 6:14 pm
+ 		eem 6/18/2009 18:06	18 June 2009 6:06 pm
+ 		eem 5/5/2009 12:16	5 May 2009 12:16 pm
+ 		eem 5/4/2009 19:19	4 May 2009 7:19 pm
+ 	the output should be
+ 		eem 7/7/2009 20:06	7 July 2009 8:06 pm
+ 		eem 6/18/2009 19:21	18 June 2009 7:21 pm
+ 		eem 5/5/2009 12:16	5 May 2009 12:16 pm
+ 		eem 5/4/2009 19:19	4 May 2009 7:19 pm"
+ 
+ 	| filtered i last |
+ 	filtered := OrderedCollection new.
+ 	i := 1.
+ 	[i <= changeRecords size] whileTrue:
+ 		[filtered addLast: (changeRecords at: i).
+ 		 last := changeRecords
+ 					findLast: [:chgRec| filtered last stamp = chgRec stamp and: [filtered last position = chgRec position]]
+ 					startingAt: i.
+ 		 i := last = 0 ifTrue: [i + 1] ifFalse: [last + 1]].
+ 	^filtered!