(define-library
  (dictionaries)
  (import (scheme base)
          (scheme case-lambda)
          (srfi 1))

  (cond-expand
    (kawa (import (srfi 69 basic-hash-tables)))
    (guile (import (srfi srfi-69)))
    ((library (srfi 69)) (import (srfi 69)))
    (else))

  (cond-expand
    (guile)
    ((library (srfi 125)) (import (srfi 125)))
    (else))

  (cond-expand
    (guile)
    ((library (srfi 126)) (import (srfi 126)))
    (else))

  (export

    ;; predicates
    dictionary?
    dict-empty?
    dict-contains?

    ;; lookup
    dict-ref
    dict-ref/default

    ;; mutation
    dict-set!
    dict-adjoin!
    dict-delete!
    dict-delete-all!
    dict-replace!
    dict-intern!
    dict-update!
    dict-update/default!
    dict-pop!
    dict-map!
    dict-filter!
    dict-remove!
    dict-search!

    ;; whole dictionary
    dict-size
    dict-for-each
    dict-count
    dict-any
    dict-every
    dict-keys
    dict-values
    dict-entries
    dict-fold
    dict-map->list
    dict->alist

    ;; registering dictionary types
    register-dictionary!)

  (include "dictionaries-impl.scm"))