--- a/ConstantNode.st Wed Jul 27 21:15:02 2011 +0200
+++ b/ConstantNode.st Wed Jul 27 21:15:25 2011 +0200
@@ -106,8 +106,9 @@
type:t value:val from: startPos to: endPos
- ^(self type: t value: val)
- startPosition: startPos;
+ ^(self basicNew)
+ type: t value: val;
+ startPosition: startPos
endPosition: endPos;
yourself
@@ -395,7 +396,7 @@
!ConstantNode class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.48 2011-07-25 22:37:30 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.49 2011-07-27 19:15:25 vrany Exp $'
!
version_SVN