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

fix bug and tweak length

Browse Source
This commit is contained in:
Robby Findler 2014-12-23 13:45:22 -06:00
parent d5bb6030ec
commit 1f7565fe47
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/collects/racket/contract/private/arr-util.rkt
View File

@ -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)