


mod [ a c ] ->
  $a=getsym();
  tkLBRACKET $chktype(a,tyVECTOR);out2(icLvalg,symtab[a].ref);
    expr tkRBRACKET $out(icIndex);out(icFetch); |
    // need } here in c code
  tkLPAREN $chktype(a,tyFUNCTION); $c=param(); tkRPAREN
    $chkarg(a,c);out2(icCall,a); |
  $doRval(a); nil #
mod2 [ a ] ->
  $a=getsym();
  tkLBRACKET $chktype(a,tyVECTOR);out2(icLvalg,symtab[a].ref);
    expr tkRBRACKET $out(icIndex); |
    // need } here in c code
  $doLval(a); nil #


