--- a/Parser.st Sun Aug 27 17:17:14 2000 +0200
+++ b/Parser.st Wed Aug 30 12:14:36 2000 +0200
@@ -2460,41 +2460,42 @@
names add:methodArgName.
]
].
-
- instVarNames := OrderedCollection new.
- self classesInstVarNames asSortedCollection do:[:instVarName |
- (instVarNames includes:instVarName) ifFalse:[
- instVarNames add:instVarName.
- ]
- ].
-
- instVarNames size > 0 ifTrue:[
- (classToCompileFor notNil and:[classToCompileFor isMeta]) ifTrue:[
- names add:'---- class instance variables ----'.
- ] ifFalse:[
- names add:'---- instance variables ----'.
- ].
- instVarNames do:[:instVarName |
- (names includes:instVarName) ifFalse:[
- names add:instVarName.
+ classToCompileFor notNil ifTrue:[
+ instVarNames := OrderedCollection new.
+ self classesInstVarNames asSortedCollection do:[:instVarName |
+ (instVarNames includes:instVarName) ifFalse:[
+ instVarNames add:instVarName.
]
- ]
- ].
-
- classVarNames := OrderedCollection new.
- self classesClassVarNames asSortedCollection do:[:classVarName |
- (classVarNames includes:classVarName) ifFalse:[
- classVarNames add:classVarName.
- ]
- ].
-
- classVarNames size > 0 ifTrue:[
- names add:'---- class variables ----'.
- classVarNames do:[:classVarName |
- (names includes:classVarName) ifFalse:[
- names add:classVarName.
+ ].
+
+ instVarNames size > 0 ifTrue:[
+ (classToCompileFor notNil and:[classToCompileFor isMeta]) ifTrue:[
+ names add:'---- class instance variables ----'.
+ ] ifFalse:[
+ names add:'---- instance variables ----'.
+ ].
+ instVarNames do:[:instVarName |
+ (names includes:instVarName) ifFalse:[
+ names add:instVarName.
+ ]
]
- ]
+ ].
+
+ classVarNames := OrderedCollection new.
+ self classesClassVarNames asSortedCollection do:[:classVarName |
+ (classVarNames includes:classVarName) ifFalse:[
+ classVarNames add:classVarName.
+ ]
+ ].
+
+ classVarNames size > 0 ifTrue:[
+ names add:'---- class variables ----'.
+ classVarNames do:[:classVarName |
+ (names includes:classVarName) ifFalse:[
+ names add:classVarName.
+ ]
+ ]
+ ].
].
].
@@ -5581,6 +5582,6 @@
!Parser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.258 2000-08-27 15:17:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.259 2000-08-30 10:14:36 cg Exp $'
! !
Parser initialize!