UnaryNode.st
changeset 1500 3c4cb012b24b
parent 1465 2b2eea66362a
child 1502 de3c4e208b9f
equal deleted inserted replaced
1499:69439abfdb93 1500:3c4cb012b24b
   266 !UnaryNode methodsFor:'evaluation'!
   266 !UnaryNode methodsFor:'evaluation'!
   267 
   267 
   268 evaluateIn:anEnvironment
   268 evaluateIn:anEnvironment
   269     "evaluate the expression represented by the receiver"
   269     "evaluate the expression represented by the receiver"
   270 
   270 
       
   271     selector := selector asSymbol.
   271     receiver isSuper ifTrue:[
   272     receiver isSuper ifTrue:[
   272         ^ super evaluateIn:anEnvironment
   273         ^ super evaluateIn:anEnvironment
   273     ].
   274     ].
   274     ^ (receiver evaluateIn:anEnvironment) perform:selector
   275     ^ (receiver evaluateIn:anEnvironment) perform:selector
   275 ! !
   276 ! !
   337 ! !
   338 ! !
   338 
   339 
   339 !UnaryNode class methodsFor:'documentation'!
   340 !UnaryNode class methodsFor:'documentation'!
   340 
   341 
   341 version
   342 version
   342     ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.41 2003-10-08 15:26:34 cg Exp $'
   343     ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.42 2004-03-19 13:26:01 stefan Exp $'
   343 ! !
   344 ! !