--- a/MessageNode.st Tue Oct 02 16:00:37 2001 +0200
+++ b/MessageNode.st Tue Oct 02 19:30:06 2001 +0200
@@ -433,6 +433,8 @@
plausibilityCheck
|rec arg1 arg2 arg1Value operand|
+ selector := selector asSymbol.
+
(argArray size > 0) ifTrue:[
arg1 := argArray at:1
].
@@ -3056,5 +3058,5 @@
!MessageNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.120 2001-10-02 11:29:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.121 2001-10-02 17:30:06 cg Exp $'
! !
--- a/Parser.st Tue Oct 02 16:00:37 2001 +0200
+++ b/Parser.st Tue Oct 02 19:30:06 2001 +0200
@@ -5513,11 +5513,6 @@
self nextToken. "/ eat the assign when doing highlighting only
].
^ true
-
-
-
-
-
!
plausibilityCheck:aNode
@@ -5987,6 +5982,6 @@
!Parser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.302 2001-10-02 14:00:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.303 2001-10-02 17:30:06 cg Exp $'
! !
Parser initialize!
--- a/UnaryNode.st Tue Oct 02 16:00:37 2001 +0200
+++ b/UnaryNode.st Tue Oct 02 19:30:06 2001 +0200
@@ -193,11 +193,13 @@
into the system (would make the '... is nowhere implemented' warning
go away."
- ((selector = 'self') or:[
- (selector = 'super') or:[
- (selector = 'thisContext') or:[
- (selector = 'true') or:[
- (selector = 'false') or:[
+ selector := selector asSymbol.
+
+ ((selector == #'self') or:[
+ (selector == #'super') or:[
+ (selector == #'thisContext') or:[
+ (selector == #'true') or:[
+ (selector == #'false') or:[
(Smalltalk includesKey:selector)]]]]]) ifTrue:[
^ 'funny selector; possible missing ''.'' or keyword'
].
@@ -340,5 +342,5 @@
!UnaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.36 2001-01-26 16:00:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.37 2001-10-02 17:30:06 cg Exp $'
! !