anchor.diff:      list_commands(Ds, RT);
   list_commands([], _RT) -> ok.
   
  -list_bindings([{{module,M},Val}|Bs], RT) ->
  -    io:fwrite(<<"~w is ~w\n">>, [M,Val]),
  -    list_bindings(Bs, RT);
   list_bindings([{Name,Val}|Bs], RT) ->
       case erl_eval:fun_data(Val) of
           {fun_data,_FBs,FCs0} ->
  
positive.code:     [E].
  
  check_command(Es, Bs) ->
      erl_eval:check_command(Es, strip_bindings(Bs)).
  
  expr(E, Bs, Lf, Ef) ->
      erl_eval:expr(E, strip_bindings(Bs), Lf, Ef).
  
  expr_list(Es, Bs, Lf, Ef) ->
      erl_eval:expr_list(Es, strip_bindings(Bs), Lf, Ef).
  
  -spec strip_bindings(erl_eval:binding_struct()) -> erl_eval:binding_struct().
  
  strip_bindings(Bs) ->
      Bs -- [B || {{module,_},_}=B <- Bs].
  
  %% Note that a sequence number is used here to make sure that if a
  %% record is used by another record, then the first record is parsed
  
negative.code: local_func(rr, [_,_,_]=As0, Bs0, _Shell, RT, Lf, Ef) ->
      {[File,Sel,Options],Bs} = expr_list(As0, Bs0, Lf, Ef),
      {value,read_and_add_records(File, Sel, Options, Bs, RT),Bs};
  local_func(history, [{integer,_,N}], Bs, _Shell, _RT, _Lf, _Ef) ->
      {value,history(N),Bs};
  local_func(history, [_Other], _Bs, _Shell, _RT, _Lf, _Ef) ->
  