Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.753.mcz
==================== Summary ====================
Name: Monticello-ul.753 Author: ul Time: 21 September 2021, 2:15:55.535367 pm UUID: 8bad0511-2475-44ae-8c8a-2e8db688d2e9 Ancestors: Monticello-ul.752
- added missing vertical bars to empty blocks
=============== Diff against Monticello-ul.752 ===============
Item was changed: ----- Method: MCMcdReader>>loadPatch (in category 'loading') ----- loadPatch | old new | (self zip memberNamed: 'patch.bin') ifNotNil: [:m | [^ patch := (DataStream on: m contentStream) next ] + on: Error do: [:fallThrough| ]]. - on: Error do: [:fallThrough ]]. definitions := OrderedCollection new. (self zip membersMatching: 'old/*') do: [:m | self extractDefinitionsFrom: m]. old := definitions asArray. definitions := OrderedCollection new. (self zip membersMatching: 'new/*') do: [:m | self extractDefinitionsFrom: m]. new := definitions asArray. ^ patch := self buildPatchFrom: old to: new. !
Item was changed: ----- Method: MCMczReader>>loadDefinitions (in category 'loading') ----- loadDefinitions definitions := OrderedCollection new. (self zip memberNamed: 'snapshot.bin') ifNotNil: [:m | [^ definitions := (DataStream on: m contentStream) next definitions] + on: Error do: [:fallThrough| ]]. - on: Error do: [:fallThrough ]]. "otherwise" (self zip membersMatching: 'snapshot/*') do: [:m | self extractDefinitionsFrom: m]. !
Item was changed: ----- Method: MCPatch>>initializeWithBase:target: (in category 'initialize-release') ----- initializeWithBase: baseSnapshot target: targetSnapshot | base target | operations := OrderedCollection new. base := MCDefinitionIndex definitions: baseSnapshot definitions. target := MCDefinitionIndex definitions: targetSnapshot definitions. target definitionsDo: [:t | base definitionLike: t ifPresent: [:b | (b isSameRevisionAs: t) ifFalse: [operations add: (MCModification of: b to: t)]] ifAbsent: [operations add: (MCAddition of: t)]]. base definitionsDo: [:b | target definitionLike: b + ifPresent: [:t|] - ifPresent: [:t] ifAbsent: [operations add: (MCRemoval of: b)]] !
Item was changed: ----- Method: MCVersion>>withAllDependenciesDo: (in category 'enumerating') ----- withAllDependenciesDo: aBlock + self allDependenciesDo: aBlock ifUnresolved: [:ignored|]. - self allDependenciesDo: aBlock ifUnresolved: [:ignored]. aBlock value: self!