Merge pull request #19 from djs55/fix-shift

Fix

Author: avsm

CHANGES

@@ -1,3 +1,6 @@
+1.0.1 (2013-12-09):
+* Fix Cstruct.shift function
+
 1.0.0 (2013-12-05):
 * Remove IPv4/IPv6 types (now moved to `ocaml-ipaddr`).
 * Improved ocamldoc for the interface.

lib/cstruct.ml

@@ -73,9 +73,9 @@ let sub t off len =
     raise (Invalid_argument "Cstruct.sub");
   { t with off; len }
 
-let shift t off =
-  let off = t.off + off in
-  let len = t.len - off in
+let shift t amount =
+  let off = t.off + amount in
+  let len = t.len - amount in
   if not (check_bounds t (off+len)) then
     raise (Invalid_argument "Cstruct.shift");
   { t with off; len }