utils: Remove the old definition of pretty-print-set.

This commit is contained in:
Sergiu Ivanov 2022-02-08 00:11:58 +01:00
parent 67ae415064
commit 002b1a8006

View file

@ -431,19 +431,6 @@
(cons/c key-contract val-contract))) (cons/c key-contract val-contract)))
;;; ===============
;;; Pretty printing
;;; ===============
;;; Pretty print a set by listing its elements in alphabetic order.
(define (pretty-print-set s)
(string-join (sort (set-map s any->string) string<?)))
(module+ test
(test-case "pretty-print-set"
(check-equal? (pretty-print-set (set 'a 'b 1)) "1 a b")))
;;; ====================================== ;;; ======================================
;;; Additional list and hash map utilities ;;; Additional list and hash map utilities
;;; ====================================== ;;; ======================================