main
Matthew Butterick 6 years ago
parent d8b0cb90a2
commit 9b81743e9a

@ -146,6 +146,7 @@
(define (dump val)
(cond
[(promise? val) 'promise-omitted]
[(vector? val) (dump (vector->list val))]
[(dict? val)
(for/list ([(k v) (in-dict (sort (dict->list val) #:key car symbol<?))])
(list k (dump v)))]

Loading…
Cancel
Save