anchor.diff:      {Cg,St1} = comp_gbody(Ts, Env, L, St0),
       True = comp_lit(true),
       Call = fun (Cas, _, L, St) ->
  -                   {c_call(c_atom(erlang), c_atom('=:='), Cas, [L]),St}
  +                   Ann = line_file_anno(L, St),
  +                   {c_call(c_atom(erlang), c_atom('=:='), Cas, Ann),St}
              end,
       simple_seq([Cg,True], Call, Env, L, St1).
   
  
positive.code: comp_lambda(Args, Body, Env, L, St0) ->
      {Cvs,Pvs,St1} = comp_lambda_args(Args, L, St0),
      {Cb,St2} = comp_body(Body, add_vbindings(Pvs, Env), L, St1),
      {c_fun(Cvs, Cb, [L,{file,St2#cg.file}]),St2}.
  
  comp_lambda_args(Args, L, St) ->
      foldr(fun (A, {Cvs,Pvs0,St0}) ->
  
negative.code: %% An interesting thought to open up system.
  comp_expr([call,M,N|As], Env, L, St) ->
      %% Call a function in another module.
      Call = fun ([Cm,Cn|Cas], _, Li, Sta) ->
                     Ann = line_file_anno(Li, Sta),
                     {c_call(Cm, Cn, Cas, Ann),Sta}
             end,
      comp_args([M,N|As], Call, Env, L, St);
  %%     {[Cm,Cn|Cas],St1} = comp_args([M,N|As], Env, L, St0),
  %%     {#c_call{anno=[L],module=Cm,name=Cn,args=Cas},St1};
  