skip record formatting on generic keys. form correct key on append.

src/stores/kvs_rocks.erl

@@ -22,7 +22,6 @@ sz(B)  -> byte_size(B).
 
 key(R) when is_tuple(R) andalso tuple_size(R) > 1 -> key(e(1,R), e(2,R));
 key(R) -> key(R,[]).
-key(Tab,R) when is_tuple(R) andalso tuple_size(R) > 1 -> key(Tab, e(2,R));
 key(Tab,R) -> Fd = case Tab of [] -> []; _ -> tb(Tab) end,
               iolist_to_binary([lists:join(<<"/">>, lists:flatten([<<>>, Fd, fmt(R)]))]).
 

src/stores/kvs_st.erl

@@ -12,7 +12,7 @@ c4(R,V) -> se(#reader.args,  R, V).
 si(M,T) -> se(#it.id, M, T).
 id(T) -> e(#it.id, T).
 
-k(F,[]) -> F; 
+k(F,[]) -> F;
 k(_,{_,Id,SF}) -> iolist_to_binary([SF,<<"/">>,tb(Id)]).
 
 f2(Feed) -> X = tb(Feed),
@@ -55,7 +55,7 @@ save(C) ->
 
 % add
 
-raw_append(M,Feed) -> rocksdb:put(ref(), key(Feed,M), term_to_binary(M), [{sync,true}]).
+raw_append(M,Feed) -> rocksdb:put(ref(), key(Feed,e(2,M)), term_to_binary(M), [{sync,true}]).
 
 add(#writer{args=M}=C) when element(2,M) == [] -> add(si(M,kvs:seq([],[])),C);
 add(#writer{args=M}=C) -> add(M,C).