From bbcb238f5232fc29da7d4cb215d2316bd4421b8c Mon Sep 17 00:00:00 2001 From: Linus Nordberg Date: Wed, 29 Oct 2014 17:39:57 +0100 Subject: Resurrect changes in f06372d that got lost in the merge. --- src/ts.erl | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/src/ts.erl b/src/ts.erl index 29d93aa..44d27cc 100644 --- a/src/ts.erl +++ b/src/ts.erl @@ -22,22 +22,22 @@ new() -> -spec add(tree_store(), non_neg_integer(), binary()) -> tree_store(). add(S = #tree_store{layers = Layers}, Layer, Entry) -> - {NewLayers, List} = layer_rw(Layers, Layer), - NewList = array:set(array:size(List), Entry, List), - S#tree_store{layers = array:set(Layer, NewList, NewLayers)}. + {NewLayers, Array} = layer_rw(Layers, Layer), + NewArray = array:set(array:size(Array), Entry, Array), + S#tree_store{layers = array:set(Layer, NewArray, NewLayers)}. -spec delete(tree_store(), non_neg_integer()) -> tree_store(). delete(S = #tree_store{layers = Layers}, Layer) -> - List = layer_ro(Layers, Layer), - NewList = array:resize(array:size(List) - 1, List), - S#tree_store{layers = array:set(Layer, NewList, Layers)}. + Array = layer_ro(Layers, Layer), + NewArray = array:resize(array:size(Array) - 1, Array), + S#tree_store{layers = array:set(Layer, NewArray, Layers)}. -spec retrieve(tree_store(), tuple()) -> binary() | undefined. retrieve(#tree_store{layers = Layers}, {Layer, Index}) -> - List = layer_ro(Layers, Layer), - Len = array:size(List), + Array = layer_ro(Layers, Layer), + Len = array:size(Array), case Index < Len of - true -> array:get(Index, List); + true -> array:get(Index, Array); false -> undefined end. -- cgit v1.1