(declare (block) (standard-bindings) (extended-bindings))
(begin
  (define std/srfi/146/hamt-misc#string-comparator
    (let ()
      (declare (not safe))
      (##structure
       std/srfi/128#comparator::t
       string?
       string=?
       '#f
       string=?-hash)))
  (define std/srfi/146/hamt-misc#make-string-hash-table
    (lambda ()
      (std/srfi/125#srfi-make-hash-table
       std/srfi/146/hamt-misc#string-comparator)))
  (define std/srfi/146/hamt-misc#with-output-to-string
    (lambda (_thunk907_)
      (call-with-parameters
       (lambda () (_thunk907_) (get-output-string (current-output-port)))
       current-output-port
       (open-output-string)))))
