--- a/WeakDependencyDictionary.st Mon Mar 01 23:59:46 2004 +0100
+++ b/WeakDependencyDictionary.st Tue Mar 02 00:08:21 2004 +0100
@@ -11,6 +11,8 @@
"
+"{ Package: 'stx:libbasic' }"
+
WeakIdentityDictionary subclass:#WeakDependencyDictionary
instanceVariableNames:''
classVariableNames:''
@@ -87,7 +89,7 @@
keyArray ~~ originalKeyArray ifTrue:[
index := 1. "/ start over
- 'restart removeEmpty' printCR.
+ "/ 'restart removeEmpty' infoPrintCR.
originalKeyArray := keyArray.
].
@@ -142,7 +144,7 @@
]
]
] ifFalse:[
- 'oops: nil value for key' print. key printCR.
+ "/ 'oops: nil value for key' infoPrint. key infoPrintCR.
keyArray basicAt:index put:DeletedEntry.
tally := tally - 1.
]
@@ -165,5 +167,5 @@
!WeakDependencyDictionary class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/WeakDependencyDictionary.st,v 1.11 1999-07-07 18:41:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/WeakDependencyDictionary.st,v 1.12 2004-03-01 23:08:21 cg Exp $'
! !