From 1f7565fe4771a06911edfe293c3dfa521c4534fc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 23 Dec 2014 13:45:22 -0600 Subject: [PATCH] fix bug and tweak length --- racket/collects/racket/contract/private/arr-util.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/racket/collects/racket/contract/private/arr-util.rkt b/racket/collects/racket/contract/private/arr-util.rkt index bb05215900..6c77d61d5b 100644 --- a/racket/collects/racket/contract/private/arr-util.rkt +++ b/racket/collects/racket/contract/private/arr-util.rkt @@ -9,16 +9,16 @@ (define (compute-quoted-src-expression stx) (define max-depth 4) (define max-width 5) - (define max-str/kwd/sym-length 20) + (define max-str/kwd/sym-length 30) (define number-bound 1000000) (define (simple? ele) (or (and (symbol? ele) - (< (string-length (symbol->string ele) - max-str/kwd/sym-length))) + (< (string-length (symbol->string ele)) + max-str/kwd/sym-length)) (and (keyword? ele) - (< (string-length (keyword->string ele) - max-str/kwd/sym-length))) + (< (string-length (keyword->string ele)) + max-str/kwd/sym-length)) (boolean? ele) (char? ele) (null? ele)