--- a/ConstantNode.st Mon Aug 07 23:41:51 2006 +0200
+++ b/ConstantNode.st Tue Aug 08 00:37:58 2006 +0200
@@ -239,7 +239,7 @@
index := aCompiler addLiteral:value.
index <= 8 ifTrue:[
aStream nextPut:(#(pushLit1 pushLit2 pushLit3 pushLit4
- pushLit5 pushLit6 pushLit7 pushLit8) at:index).
+ pushLit5 pushLit6 pushLit7 pushLit8) at:index).
] ifFalse:[
index < 256 ifTrue:[
aStream nextPut:#pushLitS; nextPut:index
@@ -342,5 +342,5 @@
!ConstantNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.38 2006-08-07 21:41:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.39 2006-08-07 22:37:58 cg Exp $'
! !