Tweak hash-order to fall back to datum-order on equal hash codes.
This commit is contained in:
parent
226e909f2a
commit
ed2b5fed0e
|
@ -9,4 +9,9 @@
|
||||||
(order 'hash-order
|
(order 'hash-order
|
||||||
any/c
|
any/c
|
||||||
eq?
|
eq?
|
||||||
(lambda (a b) (< (eq-hash-code a) (eq-hash-code b)))))
|
(lambda (a b)
|
||||||
|
(define a-code (eq-hash-code a))
|
||||||
|
(define b-code (eq-hash-code b))
|
||||||
|
(or (< a-code b-code)
|
||||||
|
(and (= a-code b-code)
|
||||||
|
(eq? (datum-order a b) '<))))))
|
||||||
|
|
Loading…
Reference in New Issue