*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 26 Jun 1999 16:31:17 +0200
changeset 876 950dac5c8ad0
parent 875 2561654973eb
child 877 e75488a39c46
*** empty log message ***
AssignNd.st
AssignmentNode.st
--- a/AssignNd.st	Sat Jun 26 16:31:06 1999 +0200
+++ b/AssignNd.st	Sat Jun 26 16:31:17 1999 +0200
@@ -149,7 +149,7 @@
         "/ this is done by keeping the valueHolder in the literalArray,
         "/ and coding a #value: message here.
 
-        litIdx := aCompiler addLiteral:variable value.
+        litIdx := aCompiler addLiteral:variable token.
         aStream nextPut:#pushLitS; nextPut:litIdx.
         expression codeOn:aStream inBlock:b for:aCompiler.
 
@@ -251,5 +251,5 @@
 !AssignmentNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.28 1999-06-26 13:46:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/AssignNd.st,v 1.29 1999-06-26 14:31:17 cg Exp $'
 ! !
--- a/AssignmentNode.st	Sat Jun 26 16:31:06 1999 +0200
+++ b/AssignmentNode.st	Sat Jun 26 16:31:17 1999 +0200
@@ -149,7 +149,7 @@
         "/ this is done by keeping the valueHolder in the literalArray,
         "/ and coding a #value: message here.
 
-        litIdx := aCompiler addLiteral:variable value.
+        litIdx := aCompiler addLiteral:variable token.
         aStream nextPut:#pushLitS; nextPut:litIdx.
         expression codeOn:aStream inBlock:b for:aCompiler.
 
@@ -251,5 +251,5 @@
 !AssignmentNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.28 1999-06-26 13:46:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.29 1999-06-26 14:31:17 cg Exp $'
 ! !