Array.st
changeset 4661 9ebc7608738d
parent 4474 d34823aa554e
child 4681 7bac1e0ba551
--- a/Array.st	Wed Sep 01 22:01:33 1999 +0200
+++ b/Array.st	Wed Sep 01 22:03:44 1999 +0200
@@ -1694,7 +1694,7 @@
 !
 
 isLiteral
-    "return true, if the receiver can be used as a literal
+    "return true, if the receiver can be used as a literal constant in ST syntax
      (i.e. can be used in constant arrays)"
 
     "/ no, simply returning true here is a mistake:
@@ -1708,7 +1708,7 @@
     "/
     thisContext isRecursive ifTrue:[^ false].
     self do:[:element |
-	element isLiteral ifFalse:[^ false]
+        element isLiteral ifFalse:[^ false]
     ].
     ^ true
 
@@ -2384,5 +2384,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.118 1999-07-31 12:45:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.119 1999-09-01 20:02:30 cg Exp $'
 ! !