--- parser3/src/main/compile.y	2001/02/21 17:50:02	1.13
+++ parser3/src/main/compile.y	2001/02/22 08:16:31	1.14
@@ -87,7 +87,7 @@ action: get | put | with | call;
 
 get: '$' any_name {
 	$$=$2; /* stack: resulting value */
-	OP($$, OP_WRITE); /* value=pop; write(value) */
+	OP($$, OP_WRITE_VALUE); /* value=pop; write(value) */
 };
 
 any_name: name_without_curly_rdive EON | name_in_curly_rdive;
@@ -235,7 +235,7 @@ name_expr_with_subvar_value: STRING subv
 	$$=N(pool); 
 	OP($$, OP_CREATE_EWPOOL);
 	P($$, $1);
-	OP($$, OP_WRITE);
+	OP($$, OP_WRITE_STRING);
 	P($$, $2);
 	OP($$, OP_REDUCE_EWPOOL);
 };
@@ -250,7 +250,7 @@ subvar_ref_name_rdive: STRING {
 subvar_get_writes: subvar__get_write | subvar_get_writes subvar__get_write { $$=$1; P($$, $2) };
 subvar__get_write: '$' subvar_ref_name_rdive {
 	$$=$2;
-	OP($$, OP_GET_ELEMENT__WRITE);
+	OP($$, OP_GET_ELEMENT__WRITE_VALUE);
 };
 
 
@@ -261,7 +261,7 @@ with: '$' name_without_curly_rdive '{' c
 	OP($$, OP_CREATE_RWPOOL);
 	P($$, $4);
 	OP($$, OP_REDUCE_RWPOOL);
-	OP($$, OP_WRITE);
+	OP($$, OP_WRITE_VALUE);
 };
 
 /* codes_in_brackets */
@@ -281,7 +281,7 @@ codes__excluding_sole_str_literal:
 ;
 write_str_literal: STRING {
 	$$=$1;
-	OP($$, OP_WRITE);
+	OP($$, OP_WRITE_STRING);
 };
 
 /* */