utils: Remove the old definition of pretty-print-set.
This commit is contained in:
parent
67ae415064
commit
002b1a8006
1 changed files with 0 additions and 13 deletions
13
utils.rkt
13
utils.rkt
|
@ -431,19 +431,6 @@
|
|||
(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
|
||||
;;; ======================================
|
||||
|
|
Loading…
Reference in a new issue