DIM in a program

[Angus]

imagine this piece of code:

Code:


EXPORT foo()
BEGIN
  LOCAL vec=[1,2,3,4,5];
  LOCAL dim1:=DIM(vec);
  dim1:=dim1(1);        //splitting in 2 steps is ok...
  LOCAL dim2:=DIM(vec)(1)   //while this is not
 
  (...)
END;

Is it really not possible to assign something like DIM(vector)(1) to a local in one step?

I tried in cas and that works. I switched home from rpn to textbook and found that calling DIM(vec)(1) is translated to DIM(vec)*(1) there which seems to be a side effect of automatic operator expansion. However in a program such behaviour is painful, you just would not expect your code to be modified by the system.