hg/stx-libbasic: comparison Dict.st

equal deleted inserted replaced

-:99990bbb561f
+:46d72af387e9
 ^ exceptionBlock value.
 !
 at:aKey put:anObject
 "add the argument anObject under key, aKey to the receiver.
+Return anObject (sigh).
 WARNING: do not add elements while iterating over the receiver.
-	      Iterate over a copy to do this."
+Iterate over a copy to do this."
 |index "{ Class: SmallInteger }" |
 aKey isNil ifTrue:[
-	"nil is not allowed as key"
+"nil is not allowed as key"
-	self errorInvalidKey:aKey
+self errorInvalidKey:aKey
 ] ifFalse:[
-	index := self findKeyOrNil:aKey.
+index := self findKeyOrNil:aKey.
-	(valueArray basicAt:index) notNil ifTrue:[
+(valueArray basicAt:index) notNil ifTrue:[
-	    valueArray basicAt:index put:anObject.
+valueArray basicAt:index put:anObject.
-	    ^ anObject
+^ anObject
-	].
+].
-	keyArray basicAt:index put:aKey.
+keyArray basicAt:index put:aKey.
-	valueArray basicAt:index put:anObject.
+valueArray basicAt:index put:anObject.
-	tally := tally + 1.
+tally := tally + 1.
-	self fullCheck.
+self fullCheck.
 ].
 ^ anObject
-"Modified: 1.3.1996 / 21:24:13 / cg"
+"Modified: 19.4.1996 / 11:19:45 / cg"
 !
 keyAtEqualValue:aValue
 "return the key whose value is equal (i.e. using #= for compare)
 to the argument, nil if none found.
 ! !
 !Dictionary class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Attic/Dict.st,v 1.35 1996-04-09 20:50:52 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Attic/Dict.st,v 1.36 1996-04-19 10:46:37 cg Exp $'
 ! !