Thanks, Dan. This is integrated in the latest push I did to GitHub
On 6/16/2015 6:25 PM, Dan Norton wrote:
Trie is a subclass of Collection and currently inherits its #storeOn: method, which does not
produce a correct store string for a Trie.
Attached is a better one, similar to the one in Dictionary, but please verify it. It reads as
"Refer to the comment in Object|storeOn:."
| noneYet |
aStream nextPutAll: '(('.
aStream nextPutAll: self class name.
aStream nextPutAll: ' new)'.
noneYet := true.
[:each :val |
ifTrue: [noneYet := false]
ifFalse: [aStream nextPut: $;].
nextPutAll: ' at: ';
nextPutAll: ' put: ';
noneYet ifFalse: [aStream nextPutAll: '; yourself'].
aStream nextPut: $)