extrasymbols: vector argument

[veretin]

Hallo!

Consider the following code

v k1,k2,k3,p1,p2,p3;
c A;

* feed extrasymbol: 1 -> k1+k2                                                                                         
g ff = A(k1+k2);
argtoextrasymbol tonumber A;
.sort

drop ff;
g ff1 = p1.p2;
g ff2 = p1.p2;

  if ( expression(ff1) ) id p1 = extrasymbol_(1);
  if ( expression(ff2) ) multiply replace_(p1,extrasymbol_(1));

print;
.end

This produces:

   ff1 =
      k1 + k2;

   ff2 =
      k1.p2 + k2.p2;

So the first variant does not work properly.