--- a/UnaryNode.st Fri Mar 28 15:39:23 2003 +0100
+++ b/UnaryNode.st Fri Mar 28 15:41:56 2003 +0100
@@ -267,15 +267,15 @@
!UnaryNode methodsFor:'evaluation'!
-evaluate
+evaluateIn:anEnvironment
"evaluate the expression represented by the receiver"
selector := selector asSymbol.
receiver isSuper ifTrue:[
- ^ super evaluate
+ ^ super evaluateIn:anEnvironment
].
- ^ (receiver evaluate) perform:selector
+ ^ (receiver evaluateIn:anEnvironment) perform:selector
! !
!UnaryNode methodsFor:'printing & storing'!
@@ -343,5 +343,5 @@
!UnaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.38 2002-08-19 16:17:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.39 2003-03-28 14:40:50 cg Exp $'
! !