utils: Don't forget hash->list/ordered (the tests were broken).
This commit is contained in:
parent
9113a788a9
commit
f0ac9223e4
1 changed files with 4 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue