anchor.diff:  reverse([A, B | L]) ->
       lists:reverse(L, [B, A]). % BIF
   			
  -search(Key, [H|_T]) when is_tuple(H), element(1, H) =:= Key ->
  -    {value, H};
  -search(Key, [_|T]) ->
  -    search(Key, T);
  -search(_Key, []) ->
  -    false.
  -
   -spec objfile_extension() -> nonempty_string().
   objfile_extension() ->
       ".beam".
  
positive.code: do_boot(Init,Flags,Start) ->
      process_flag(trap_exit,true),
      {Pgm0,Nodes,Id,Path} = prim_load_flags(Flags),
      Root = b2s(get_flag(root, Flags)),
      PathFls = path_flags(Flags),
      Pgm = b2s(Pgm0),
      _Pid = start_prim_loader(Init,b2a(Id),Pgm,bs2as(Nodes),
  
negative.code: %%         atom() if a single arg was given.
  %%         list(atom()) if several args were given.
  %%
  get_flag(F, Flags, Default) ->
      case lists:keyfind(F, 1, Flags) of
  	{F,[]} ->
  	    true;
  	{F,[V]} ->
  	    V;
  	{F,V} ->
  	    V;
  	_ ->
  	    Default
      end.
  
  %%
  %% Internal get_flag function, with default value.
  %% Return: list(atom()) 
  %%
  get_flag_list(F, Flags, Default) ->
      case lists:keyfind(F, 1, Flags) of
  	{F,[_|_]=V} ->
  	    V;
  	_ ->
  	    Default
      end.
  
  %%
  