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

fixed some repl-printing related bugs that would make 'write' sensitive to pretty-print's parameters in drscheme's repl

Browse Source 
svn: r18321

original commit: 50a6a585b1ae54d26ac7a2cd50c5811a2012cf24
This commit is contained in:
Robby Findler 2010-02-24 17:35:09 +00:00
commit bbd9538438
2 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/kernel.ss
View File

@ -78,9 +78,9 @@
(syntax
(define name (let ([c (dynamic-require ''#%mred-kernel 'name)])
(make-primitive-class
(lambda (class prop:object preparer dispatcher more-props)
(lambda (class prop:object preparer dispatcher prop:unwrap more-props)
(kernel:primitive-class-prepare-struct-type!
c prop:object class preparer dispatcher more-props))
c prop:object class preparer dispatcher prop:unwrap more-props))
kernel:initialize-primitive-object
'print-name super (list intf ...) 'args
'(old ...)

17
collects/mrlib/interactive-value-port.ss
View File

@ -40,8 +40,10 @@
(real? x)
(not (integer? x))))
(define default-pretty-print-current-style-table (pretty-print-current-style-table))
(define (do-printing pretty value port)
(parameterize (;; these three handlers aren't used, but are set to override the user's settings
(parameterize (;; these handlers aren't used, but are set to override the user's settings
[pretty-print-print-line (λ (line-number op old-line dest-columns)
(when (and (not (equal? line-number 0))
(not (equal? dest-columns 'infinity)))
@ -50,6 +52,19 @@
[pretty-print-pre-print-hook (λ (val port) (void))]
[pretty-print-post-print-hook (λ (val port) (void))]
[pretty-print-columns 'infinity]
[pretty-print-exact-as-decimal #f]
[pretty-print-depth #f]
[pretty-print-.-symbol-without-bars #f]
[pretty-print-show-inexactness #f]
[pretty-print-abbreviate-read-macros #t]
[pretty-print-current-style-table default-pretty-print-current-style-table]
[pretty-print-remap-stylable (λ (x) #f)]
[pretty-print-print-line
(lambda (line port offset width)
(when (and (number? width)
(not (eq? 0 line)))
(newline port))
0)]
[pretty-print-size-hook
(λ (value display? port)