(library (rnrs hashtables (6))
  (export make-eq-hashtable make-equal-hash-table make-hash-table)
  (import (rnrs base)
	  (srfi-69) ; prefix srfi-69:
	  (rnrs control))
  
  (define make-eq-hashtable
    (case-lambda 
     (()  (srfi-69:make-hash-table eq?))
     ((k) (srfi-69:make-hash-table eq?))))

  (define make-eqv-hashtable
    (case-lambda 
     (()  (srfi-69:make-hash-table eqv?))
     ((k) (srfi-69:make-hash-table eqv?))))

  (define make-hashtable
    (case-lambda 
     ((hash equiv)  (srfi-69:make-hash-table equiv hash))
     ((hash equiv k) (srfi-69:make-hash-table equiv hash))))


  )