(require-library srfi-4 numbers)

(module siphash ()
  (import chicken scheme srfi-4 numbers)
  (export make-siphash siphash-2-4 siphash-4-8)
  (define bytevector-length u8vector-length)
  (define bytevector-u8-ref u8vector-ref)
  (define bytevector-copy subu8vector)
  (include "siphash.scm"))