ArrayedCollection.st
changeset 15855 02483477abfc
parent 14615 4e5318533a06
child 16711 e0d54bbf5148
child 18113 92b4242b2b0b
equal deleted inserted replaced
15854:811e3095236e 15855:02483477abfc
   391      onto the argument aStream. Redefined to output index access."
   391      onto the argument aStream. Redefined to output index access."
   392 
   392 
   393     |index "{ Class: SmallInteger }"|
   393     |index "{ Class: SmallInteger }"|
   394 
   394 
   395     thisContext isRecursive ifTrue:[
   395     thisContext isRecursive ifTrue:[
   396         Object recursiveStoreStringSignal raiseRequestWith:self.
   396         RecursiveStoreError raiseRequestWith:self.
   397         'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR.
   397         'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR.
   398         aStream nextPutAll:'#recursive'.
   398         aStream nextPutAll:'#recursive'.
   399         ^ self
   399         ^ self
   400     ].
   400     ].
   401 
   401 
   500 ! !
   500 ! !
   501 
   501 
   502 !ArrayedCollection class methodsFor:'documentation'!
   502 !ArrayedCollection class methodsFor:'documentation'!
   503 
   503 
   504 version
   504 version
   505     ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.64 2012-12-21 11:58:50 cg Exp $'
   505     ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.65 2013-12-06 14:40:54 stefan Exp $'
   506 ! !
   506 ! !
   507 
   507