#lang racket/base

(provide hash-order)

(require data/order)
(require racket/contract)

(define hash-order
  (order 'hash-order
         any/c
         eq?
         (lambda (a b) (< (eq-hash-code a) (eq-hash-code b)))))