scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

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

Browse source
This commit is contained in:
Sergiu Ivanov 2020-03-21 19:23:30 +01:00
parent 9113a788a9
commit f0ac9223e4
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
utils.rkt
View file

@ -329,6 +329,10 @@
(for/hash ([(k v) (in-hash ht)]) (for/hash ([(k v) (in-hash ht)])
(values k (list->set v)))) (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 ;;; Functions