equal
deleted
inserted
replaced
20 UnaryNode comment:' |
20 UnaryNode comment:' |
21 |
21 |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
22 COPYRIGHT (c) 1989 by Claus Gittinger |
23 All Rights Reserved |
23 All Rights Reserved |
24 |
24 |
25 $Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.6 1994-02-25 12:49:52 claus Exp $ |
25 $Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.7 1994-03-30 10:07:15 claus Exp $ |
26 '! |
26 '! |
27 |
27 |
28 !UnaryNode class methodsFor:'instance creation'! |
28 !UnaryNode class methodsFor:'instance creation'! |
29 |
29 |
30 receiver:r selector:s |
30 receiver:r selector:s |
120 into the system (would make the '... is nowhere implemented' warning |
120 into the system (would make the '... is nowhere implemented' warning |
121 go away." |
121 go away." |
122 |
122 |
123 ((selector = 'self') or:[ |
123 ((selector = 'self') or:[ |
124 (selector = 'super') or:[ |
124 (selector = 'super') or:[ |
125 (Smalltalk includesKey:selector)]]) ifTrue:[ |
125 (selector = 'thisContext') or:[ |
|
126 (selector = 'true') or:[ |
|
127 (selector = 'false') or:[ |
|
128 (Smalltalk includesKey:selector)]]]]]) ifTrue:[ |
126 ^ 'funny selector; possible missing ''.'' or keyword' |
129 ^ 'funny selector; possible missing ''.'' or keyword' |
127 ]. |
130 ]. |
|
131 |
128 "more to come ..." |
132 "more to come ..." |
129 ^ nil |
133 ^ nil |
130 ! ! |
134 ! ! |
131 |
135 |
132 !UnaryNode methodsFor:'evaluating'! |
136 !UnaryNode methodsFor:'evaluating'! |