(define hash-mapping-dtd
  (let ()

    (define (prep-dtd-arg proc)
      (lambda (dtd . args)
        (apply proc args)))

    (make-dtd
     make-dictionary-index (prep-dtd-arg hashmap)
     dictionary?-index (prep-dtd-arg hashmap?)
     dict-empty?-index (prep-dtd-arg hashmap-empty?)
     dict-contains?-index (prep-dtd-arg hashmap-contains?)
     dict-ref-index (prep-dtd-arg hashmap-ref)
     dict-ref/default-index (prep-dtd-arg hashmap-ref/default)
     dict-set-index (prep-dtd-arg hashmap-set)
     dict-set!-index (prep-dtd-arg hashmap-set!)
     dict-adjoin-index (prep-dtd-arg hashmap-adjoin)
     dict-adjoin!-index (prep-dtd-arg hashmap-adjoin!)
     dict-delete-index (prep-dtd-arg hashmap-delete)
     dict-delete!-index (prep-dtd-arg hashmap-delete!)
     dict-delete-all-index (prep-dtd-arg hashmap-delete-all)
     dict-delete-all!-index (prep-dtd-arg hashmap-delete-all!)
     dict-replace-index (prep-dtd-arg hashmap-replace)
     dict-replace!-index (prep-dtd-arg hashmap-replace!)
     dict-intern-index (prep-dtd-arg hashmap-intern)
     dict-intern!-index (prep-dtd-arg hashmap-intern!)
     dict-update-index (prep-dtd-arg hashmap-update)
     dict-update!-index (prep-dtd-arg hashmap-update!)
     dict-update/default-index (prep-dtd-arg hashmap-update/default)
     dict-update/default!-index (prep-dtd-arg hashmap-update!/default)
     dict-pop-index (prep-dtd-arg hashmap-pop)
     dict-pop!-index (prep-dtd-arg hashmap-pop!)
     dict-filter-index (prep-dtd-arg hashmap-filter)
     dict-filter!-index (prep-dtd-arg hashmap-filter!)
     dict-remove-index (prep-dtd-arg hashmap-remove)
     dict-remove!-index (prep-dtd-arg hashmap-remove!)
     dict-search-index (prep-dtd-arg hashmap-search)
     dict-search!-index (prep-dtd-arg hashmap-search!)
     dict-copy-index (prep-dtd-arg hashmap-copy)
     dict-size-index (prep-dtd-arg hashmap-size)
     dict-for-each-index (prep-dtd-arg hashmap-for-each)
     dict-count-index (prep-dtd-arg hashmap-count)
     dict-keys-index (prep-dtd-arg hashmap-keys)
     dict-values-index (prep-dtd-arg hashmap-values)
     dict-entries-index (prep-dtd-arg hashmap-entries)
     dict-fold-index (prep-dtd-arg hashmap-fold)
     dict-map->list-index (prep-dtd-arg hashmap-map->list)
     dict->alist-index (prep-dtd-arg hashmap->alist)
     dict-comparator-index (prep-dtd-arg hashmap-key-comparator))))