anchor.diff:  -export([snapshot/0,  snapshot_clear/0,
            snapshot_print/0, snapshot_get/0,
            snapshot_save/1,  snapshot_load/1]).
  +
  +%% Unit handling
  +-export([set_unit/1]).
   
   %%%%%%%%%%%%%%
   %%% Public %%%
  
positive.code:         end,
      put(recon_alloc_snapshot,Snapshot).
  
  %%%%%%%%%%%%%%%
  %%% Private %%%
  %%%%%%%%%%%%%%%
  
negative.code: snapshot_get_int() ->
      case snapshot_get() of
          undefined ->
              conv(snapshot_int());
          Snapshot ->
              conv(Snapshot)
      end.
  
  %% Get the alloc part of a snapshot
  