'From Squeak3.6 of ''6 October 2003'' [latest update: #5424] on 15 November 2003 at 8:14:55 pm'!

!SWWikiParser methodsFor: 'private' stamp: 'mas 11/15/2003 17:27'!
mergeItems: anOrderedCollection withClass: aClass using: aBlock 
	anOrderedCollection size - 1 to: 1
		by: -1
		do: 
			[:i | 
			| current next |
			current := anOrderedCollection at: i.
			(current class = aClass 
				and: [(next := anOrderedCollection at: i + 1) class = aClass]) 
					ifTrue: 
						[aBlock value: current value: next.
						anOrderedCollection removeAt: i + 1]].
	^anOrderedCollection! !