5 May
2000
5 May
'00
10:38 p.m.
Hi all,
this tiny goodie removes all entries without references from Undeclared. Maybe this should be called after every file in.
Michael
'From Squeak2.8alpha of 19 January 2000 [latest update: #2052] on 5 May 2000 at 1:27:13 pm'!
!Utilities class methodsFor: 'miscellaneous' stamp: 'mir 5/5/2000 13:26'! cleanupUndeclared | toBeRemoved refs | "Utilities cleanupUndeclared"
toBeRemoved _ Set new. Undeclared associationsDo: [:assoc | refs _ Smalltalk allCallsOn: assoc. refs isEmpty ifTrue: [toBeRemoved add: assoc key]]. toBeRemoved do: [:each | Undeclared removeKey: each]! !