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)))
|
(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
|
||||||
;;; ======================================
|
;;; ======================================
|
||||||
|
|
Loading…
Reference in a new issue