'From Squeak4.2alpha of 19 August 2010 [latest update: #10382] on 22 September 2010 at 9:28:51 pm'!

!WeakArray class methodsFor: 'private' stamp: 'Igor.Stasenko 9/22/2010 21:19'!
finalizationProcess
	[true] whileTrue:
		[ WeakFinalizationList initTestPair.
		FinalizationSemaphore wait.
		FinalizationLock critical:
			[
			WeakFinalizationList checkTestPair.
			FinalizationDependents do:
				[:weakDependent |
				weakDependent ifNotNil:
					[weakDependent finalizeValues]]]
			ifError:
			[:msg :rcvr | rcvr error: msg].
		].
! !

"Postscript:
Change the #finalizationProcess, and restart it afterwards"

WeakArray restartFinalizationProcess!