(module ht racket/base
  (define-struct x (f g) #:omit-define-syntaxes
    #:property prop:equal+hash
    (list (lambda (x y r)
            (printf "equal?\n")
            (r (x-f x) (x-f y)))
          (lambda (x r)
            (printf "hc1\n")
            (r (x-f x)))
          (lambda (x r)
            (printf "hc2\n")
            (r (x-f x)))))
  (define equal-hash (make-hash))

  (hash-set! equal-hash (make-x 1 0) 0)
  (hash-set! equal-hash (make-x 1 1) 1)
  (display (hash-count equal-hash))

  (newline)
  (define h (hash))
  (hash-count (hash-set (hash-set h (make-x 1 0) 0) (make-x 1 1) 1)))

@cadr

@samth I found that for structs we’re always computing the hash ourselves iterating over the field values etc no matter what, fixing it now