;from srfi-69.types

(srfi.69.hash#*make-hash-function (#(procedure #:clean #:enforce) srfi.69.hash#*make-hash-function ((procedure (* fixnum) fixnum)) (procedure (* fixnum) fixnum)))

(srfi.69.hash#eq?-hash (#(procedure #:clean #:enforce) srfi.69.hash#eq?-hash (* #!optional fixnum fixnum) fixnum))
(srfi.69.hash#equal?-hash (#(procedure #:clean #:enforce) srfi.69.hash#equal?-hash (* #!optional fixnum fixnum) fixnum))
(srfi.69.hash#eqv?-hash (#(procedure #:clean #:enforce) srfi.69.hash#eqv?-hash (* #!optional fixnum fixnum) fixnum))
(srfi.69.hash#hash (#(procedure #:clean #:enforce) srfi.69.hash#hash (* #!optional fixnum fixnum) fixnum))
(srfi.69.hash#hash-by-identity (#(procedure #:clean #:enforce) srfi.69.hash#hash-by-identity (* #!optional fixnum fixnum) fixnum))

;;XXX if we want to hardcode hash-default-bound here, we could rewrite the 1-arg case...
;     (applies to all hash-functions)
(srfi.69.hash#keyword-hash (#(procedure #:clean #:enforce) srfi.69.hash#keyword-hash (* #!optional fixnum fixnum) fixnum))

(srfi.69.hash#number-hash (#(procedure #:clean #:enforce) srfi.69.hash#number-hash (number #!optional fixnum fixnum) fixnum))
(srfi.69.hash#object-uid-hash (#(procedure #:clean #:enforce) srfi.69.hash#object-uid-hash (* #!optional fixnum fixnum) fixnum))
(srfi.69.hash#symbol-hash (#(procedure #:clean #:enforce) srfi.69.hash#symbol-hash (symbol #!optional fixnum fixnum) fixnum))
(srfi.69.hash#string-hash (#(procedure #:clean #:enforce) srfi.69.hash#string-hash (string #!optional fixnum fixnum fixnum fixnum) fixnum))
(srfi.69.hash#string-hash-ci (#(procedure #:clean #:enforce) srfi.69.hash#string-hash-ci (string #!optional fixnum fixnum fixnum fixnum) fixnum))
(srfi.69.hash#string-ci-hash (#(procedure #:clean #:enforce) srfi.69.hash#string-ci-hash (string #!optional fixnum fixnum fixnum fixnum) fixnum))