equal
deleted
inserted
replaced
298 onto the argument aStream. Redefined to output index access." |
298 onto the argument aStream. Redefined to output index access." |
299 |
299 |
300 |index "{ Class: SmallInteger }"| |
300 |index "{ Class: SmallInteger }"| |
301 |
301 |
302 thisContext isRecursive ifTrue:[ |
302 thisContext isRecursive ifTrue:[ |
303 RecursiveCollectionStoreStringSignal raiseRequestWith:self. |
303 Object recursiveStoreStringSignal raiseRequestWith:self. |
304 'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR. |
304 'ArrayedCollection [error]: storeOn: of self referencing collection.' errorPrintCR. |
305 aStream nextPutAll:'#recursive'. |
305 aStream nextPutAll:'#recursive'. |
306 ^ self |
306 ^ self |
307 ]. |
307 ]. |
308 |
308 |
416 ! ! |
416 ! ! |
417 |
417 |
418 !ArrayedCollection class methodsFor:'documentation'! |
418 !ArrayedCollection class methodsFor:'documentation'! |
419 |
419 |
420 version |
420 version |
421 ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.45 2000-08-04 16:44:15 tm Exp $' |
421 ^ '$Header: /cvs/stx/stx/libbasic/ArrayedCollection.st,v 1.46 2000-08-04 16:57:09 tm Exp $' |
422 ! ! |
422 ! ! |