6.7.4

mix.exs

@@ -2,7 +2,7 @@ defmodule KVS.Mixfile do
   use Mix.Project
 
   def project do
-    [app: :kvs, version: "6.7.3", description: "Abstract Chain Database", package: package(), deps: deps()]
+    [app: :kvs, version: "6.7.4", description: "Abstract Chain Database", package: package(), deps: deps()]
   end
 
   def application do

src/kvs.app.src

@@ -1,6 +1,6 @@
 {application, kvs,
    [{description, "KVS Abstract Chain Database"},
-    {vsn, "6.7.3"},
+    {vsn, "6.7.4"},
     {registered, []},
     {applications, [kernel,stdlib,rocksdb]},
     {mod, { kvs, []}},

src/kvs.erl

@@ -9,7 +9,7 @@
 -include("cursors.hrl").
 -include("kvs.hrl").
 -include("backend.hrl").
--export([dump/0,check/0,metainfo/0,ensure/1,seq_gen/0,fold/6,fold/7,head/1]).
+-export([dump/0,check/0,metainfo/0,ensure/1,seq_gen/0,fold/6,fold/7,head/1,head/2]).
 -export(?API).
 -export(?STREAM).
 -export([init/1, start/2, stop/1]).
@@ -120,6 +120,7 @@ seq(Tab, Incr,#kvs{mod=DBA}) -> DBA:seq(Tab, Incr).
 dump(#kvs{mod=Mod}) -> Mod:dump().
 feed(Key,#kvs{st=Mod}) -> Mod:feed(Key).
 head(Key) -> case (kvs:take((kvs:reader(Key))#reader{args=1}))#reader.args of [X] -> X; [] -> [] end.
+head(Key,Count) -> case (kvs:take((kvs:reader(Key))#reader{args=Count}))#reader.args of [X] -> X; [] -> [] end.
 
 % tests