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

always use write

Browse Source 
svn: r14072
This commit is contained in:
Robby Findler 2009-03-12 14:18:16 +00:00
parent b8a005e35c
commit 67c68ef05a
1 changed files with 9 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/deinprogramm/deinprogramm-langs.ss
View File

@ -213,13 +213,8 @@
(lambda () (lambda ()
(global-port-print-handler (global-port-print-handler
(lambda (value port) (lambda (value port)
(let ([converted-value (simple-module-based-language-convert-value value settings)])
(setup-printing-parameters
(lambda ()
(parameterize ([pretty-print-columns 'infinity]) (parameterize ([pretty-print-columns 'infinity])
(pretty-print converted-value port))) (pretty-print value port)))))))
settings
'infinity)))))))
;; set-printing-parameters : settings ( -> TST) -> TST ;; set-printing-parameters : settings ( -> TST) -> TST
;; is implicitly exposed to the stepper. watch out! -- john ;; is implicitly exposed to the stepper. watch out! -- john
@ -240,16 +235,12 @@
(thunk))) (thunk)))
(define/override (render-value/format value settings port width) (define/override (render-value/format value settings port width)
(set-printing-parameters (parameterize ([pretty-print-columns width])
settings (pretty-print value port)))
(lambda ()
(simple-module-based-language-render-value/format value settings port width))))
(define/override (render-value value settings port) (define/override (render-value value settings port)
(set-printing-parameters (parameterize ([pretty-print-columns 'infinity])
settings (pretty-print value port)))
(lambda ()
(simple-module-based-language-render-value/format value settings port 'infinity))))
(super-new))) (super-new)))