;;;; srfi-90.scm -*- Scheme -*- vim: ft=scheme:

;; Necessary for name export

(module srfi-90 (number-hash
                 object-uid-hash
                 symbol-hash
                 keyword-hash
                 eq?-hash
                 eqv?-hash
                 recursive-hash-max-depth
                 recursive-hash-max-length
                 equal?-hash
                 hash
                 string-hash
                 string-ci-hash
                 string-hash-ci
                 hash-by-identity
                 make-hash-table
                 hash-table?
                 hash-table-size
                 hash-table-equivalence-function
                 hash-table-hash-function
                 hash-table-min-load
                 hash-table-max-load
                 hash-table-weak-keys
                 hash-table-weak-values
                 hash-table-has-initial?
                 hash-table-initial
                 hash-table-copy
                 hash-table-update!
                 hash-table-update!/default
                 hash-table-set!
                 hash-table-ref
                 hash-table-ref/default
                 hash-table-exists?
                 hash-table-delete!
                 hash-table-remove!
                 hash-table-clear!
                 hash-table-merge!
                 hash-table-merge
                 hash-table->alist
                 alist->hash-table
                 hash-table-keys
                 hash-table-values
                 hash-table-fold
                 hash-table-for-each
                 hash-table-map
                 hash-table-walk)

(import scheme)
(import (chicken module))
(import (only (chicken platform) register-feature!))
;prefixing helps ensure <exporting-module>#<imported-name>
(import (prefix (srfi 69 hash) im:))
(import (prefix (srfi 69 weak var) im:))

(register-feature! 'srfi-90)

(define number-hash im:number-hash)
(define object-uid-hash im:object-uid-hash)
(define symbol-hash im:symbol-hash)
(define keyword-hash im:keyword-hash)
(define eq?-hash im:eq?-hash)
(define eqv?-hash im:eqv?-hash)
(define recursive-hash-max-depth im:recursive-hash-max-depth)
(define recursive-hash-max-length im:recursive-hash-max-length)
(define equal?-hash im:equal?-hash)
(define hash im:hash)
(define string-hash im:string-hash)
(define string-ci-hash im:string-ci-hash)
(define string-hash-ci im:string-hash-ci)
(define hash-by-identity im:hash-by-identity)

(define make-hash-table im:make-hash-table)
(define hash-table? im:hash-table?)
(define hash-table-size im:hash-table-size)
(define hash-table-equivalence-function im:hash-table-equivalence-function)
(define hash-table-hash-function im:hash-table-hash-function)
(define hash-table-min-load im:hash-table-min-load)
(define hash-table-max-load im:hash-table-max-load)
(define hash-table-weak-keys im:hash-table-weak-keys)
(define hash-table-weak-values im:hash-table-weak-values)
(define hash-table-has-initial? im:hash-table-has-initial?)
(define hash-table-initial im:hash-table-initial)
(define hash-table-copy im:hash-table-copy)
(define hash-table-update! im:hash-table-update!)
(define hash-table-update!/default im:hash-table-update!/default)
(define hash-table-set! im:hash-table-set!)
(define hash-table-ref im:hash-table-ref)
(define hash-table-ref/default im:hash-table-ref/default)
(define hash-table-exists? im:hash-table-exists?)
(define hash-table-delete! im:hash-table-delete!)
(define hash-table-remove! im:hash-table-remove!)
(define hash-table-clear! im:hash-table-clear!)
(define hash-table-merge! im:hash-table-merge!)
(define hash-table-merge im:hash-table-merge)
(define hash-table->alist im:hash-table->alist)
(define alist->hash-table im:alist->hash-table)
(define hash-table-keys im:hash-table-keys)
(define hash-table-values im:hash-table-values)
(define hash-table-fold im:hash-table-fold)
(define hash-table-for-each im:hash-table-for-each)
(define hash-table-map im:hash-table-map)
(define hash-table-walk im:hash-table-walk)

) ;module srfi-90