;;;; tiger-hash-primitive.scm  -*- Scheme -*-
;;;; Kon Lovett, Sep '21
;;;; Kon Lovett, Jul '18
;;;; Kon Lovett, Apr '12
;;;; Kon Lovett, Jan '06

(module tiger-hash-primitive

(;export
  tiger192-primitive)

(import scheme
  (chicken base)
  (chicken type)
  message-digest-primitive
  tiger-hash-api)

(include-relative "message-digest-primitive.types")

(: tiger192-primitive (--> message-digest-primitive))

(define tiger192-primitive
  (let ((the-tiger192-primitive (the (or false message-digest-primitive) #f)))
    (lambda ()
      (unless the-tiger192-primitive
        (set! the-tiger192-primitive (make-message-digest-primitive
          context-size digest-length init update final
          #:block-length block-length #:raw-update raw-update #:name name)) )
      the-tiger192-primitive ) ) )

) ;tiger-hash-primitive