suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pretty-print: order hash keys in common cases

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-06 10:35:23 -07:00
parent 9fe03ff6d9
commit 60b6b43485
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/pretty.rkt
View File

@ -734,10 +734,12 @@
[else (list (make-unquoted 'cons) (car obj) (cdr obj))])) [else (list (make-unquoted 'cons) (car obj) (cdr obj))]))
(define (convert-hash obj expr?) (define (convert-hash obj expr?)
(let ([l (hash-map obj (lambda (k v) (let ([l (hash-map obj
(lambda (k v)
(if expr? (if expr?
(list k v) (list k v)
(cons k (make-hide v)))))]) (cons k (make-hide v))))
#t)])
(if expr? (if expr?
(cons (make-unquoted (cons (make-unquoted
(if (hash-eq? obj) (if (hash-eq? obj)