utils: Don't forget hash->list/ordered (the tests were broken).

This commit is contained in:
Sergiu Ivanov 2020-03-21 19:23:30 +01:00
parent 9113a788a9
commit f0ac9223e4

View file

@ -329,6 +329,10 @@
(for/hash ([(k v) (in-hash ht)])
(values k (list->set v))))
;;; Returns the key-value pairs of a given hash table in the order in
;;; which the hash table orders them for hash-map and hash-for-each.
(define (hash->list/ordered ht) (hash-map ht cons #t))
;;; =========
;;; Functions