anchor.diff:         true ->
              lager:debug("writing point-seq of len ~w: ~p", [Length, Bytes]),
              ok = write_at(IO, Bytes, Position)
  -    end,
  -
  -    % TODO: propagate to lower archives (if necessary)
  -
  -    ok.
  +    end.
   
   
   build_consecutive_points(Step, Points) ->
  
positive.code:     lists:foreach(fun(Ps) ->
                            write_consecutive_points(IO, Archive, BaseInterval, Ps)
                    end, Consecutive),
      ok.
  
  
  write_consecutive_points(IO, Archive, BaseInterval, [{TS, _}, _] = Points) ->
  
negative.code:         WroteAggregate == true ->
              propagate_lower_archives(IO, Header, TimeStamp, Lower, Ls);
          true ->
              false
      end;
  propagate_lower_archives(_, _, _, _, []) -> true.
  
  
  write_propagated_values(IO, Header, Lower, LowerInterval, Values, NumPoints) ->
  