diff --git a/utils.rkt b/utils.rkt index bd117e3..10e1164 100644 --- a/utils.rkt +++ b/utils.rkt @@ -285,6 +285,11 @@ (check-equal? (list-sets->list-strings (list (set 'x 'y) (set 'z) (set) (set 't))) '("y x" "z" "" "t")))) + +;;; =============== +;;; Pretty printing +;;; =============== + (: pretty-print-set (-> (Setof Any) String)) (define (pretty-print-set s) (string-join (sort (set-map s any->string) string