--- a/Array.st Sat Jan 08 18:18:10 1994 +0100
+++ b/Array.st Sun Jan 09 22:11:39 1994 +0100
@@ -27,7 +27,7 @@
are used very often in the system, some methods have been tuned by
reimplementation as primitive.
-$Header: /cvs/stx/stx/libbasic/Array.st,v 1.6 1993-12-11 00:39:56 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Array.st,v 1.7 1994-01-09 21:11:39 claus Exp $
written spring 89 by claus
'!
@@ -65,7 +65,7 @@
indx = _intVal(index) - 1;
if (indx >= 0) {
nIndex = (_qSize(self) - OHDR_SIZE) / sizeof(OBJ);
- if ((cls = _qClass(self)) != Array)
+ if ((cls = _qClass(self)) != Array)
indx += _intVal(_ClassInstPtr(cls)->c_ninstvars);
if (indx < nIndex) {
RETURN ( _InstPtr(self)->i_instvars[indx] );
@@ -91,7 +91,7 @@
indx = _intVal(index) - 1;
if (indx >= 0) {
nIndex = (_qSize(self) - OHDR_SIZE) / sizeof(OBJ);
- if ((cls = _qClass(self)) != Array)
+ if ((cls = _qClass(self)) != Array)
indx += _intVal(_ClassInstPtr(cls)->c_ninstvars);
if (indx < nIndex) {
_InstPtr(self)->i_instvars[indx] = anObject;
@@ -404,7 +404,9 @@
!Array methodsFor:'printing & storing'!
isLiteral
- "return true, if the receiver can be used as a literal"
+
+"return true, if the receiver can be used as a literal
+ (i.e. can be used in constant arrays)"
self do:[:element |
element isLiteral ifFalse:[^ false]