From 60b6b43485c80e5e3a13a3e9149195f7c7aa2c7d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 6 Feb 2018 10:35:23 -0700 Subject: [PATCH] pretty-print: order hash keys in common cases --- racket/collects/racket/pretty.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/racket/collects/racket/pretty.rkt b/racket/collects/racket/pretty.rkt index e306abe3d7..79b363facf 100644 --- a/racket/collects/racket/pretty.rkt +++ b/racket/collects/racket/pretty.rkt @@ -734,10 +734,12 @@ [else (list (make-unquoted 'cons) (car obj) (cdr obj))])) (define (convert-hash obj expr?) - (let ([l (hash-map obj (lambda (k v) - (if expr? - (list k v) - (cons k (make-hide v)))))]) + (let ([l (hash-map obj + (lambda (k v) + (if expr? + (list k v) + (cons k (make-hide v)))) + #t)]) (if expr? (cons (make-unquoted (if (hash-eq? obj)