Hi,


> On 06.04.2017, at 21:07, commits at source.squeak.org wrote:
> 
> A new version of Monticello was added to project The Inbox:
> http://source.squeak.org/inbox/Monticello-mva.667.mcz
> 
> ==================== Summary ====================
> 
> Name: Monticello-mva.667
> Author: mva
> Time: 6 April 2017, 8:41:09.494386 pm
> UUID: 0075cba1-70ff-4e10-9be6-0c01f85dc85a
> Ancestors: Monticello-eem.666
> 
> New style diffy version (*.mcd): Prune ancestors version infos in the info of the base of the diff when writing a diffy version. Graft them back from the diff's base version when reading a diffy version unless base info already has ancestors (old-style diffy version with complete version history info) in which case leave them alone.

Might the submitter want to explain their idea?
:)

Best regards
	-Tobias

> 
> =============== Diff against Monticello-eem.666 ===============
> 
> Item was added:
> + ----- Method: MCMcdReader>>loadVersionInfo (in category 'loading') -----
> + loadVersionInfo
> + 	| baseInfo |
> + 	super loadVersionInfo.
> + 	baseInfo := self baseInfo.
> + 	info graftAncestorsTo: baseInfo from:
> + 		(MCRepositoryGroup default versionWithInfo: baseInfo) info!
> 
> Item was added:
> + ----- Method: MCMcdWriter>>writeVersion: (in category 'visiting') -----
> + writeVersion: aVersion
> + 	self writeFormat.
> + 	self writePackage: aVersion package.
> + 	self writeVersionInfo:
> + 		(aVersion info veryDeepCopy
> + 			pruneAncestorsFrom: aVersion baseInfo).
> + 	self writeDefinitions: aVersion.
> + 	aVersion dependencies do: [:ea | self writeVersionDependency: ea]!
> 
> Item was added:
> + ----- Method: MCVersionInfo>>ancestors: (in category 'accessing') -----
> + ancestors: anObject
> + 	ancestors := anObject!
> 
> Item was added:
> + ----- Method: MCVersionInfo>>graftAncestorsTo:from: (in category 'copying') -----
> + graftAncestorsTo: aBaseVersionInfo from: aVersionInfo
> + 	(self allAncestors select: [:e | e = aBaseVersionInfo])
> + 		do: [:e | e ancestors isEmpty ifTrue: [e ancestors: aVersionInfo ancestors]]!
> 
> Item was added:
> + ----- Method: MCVersionInfo>>pruneAncestorsFrom: (in category 'copying') -----
> + pruneAncestorsFrom: aBaseVersionInfo
> + 	(self allAncestors select: [:e | e = aBaseVersionInfo])
> + 		do: [:e | e ancestors: #()]
> + 	
> + !
> 
>