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

Back out rev rev 14072.

Browse Source 
This had broken printing of image snips in the REPL.

svn: r14346
This commit is contained in:
Mike Sperber 2009-03-30 07:27:10 +00:00
parent 14f71a8531
commit 5efef6aa90
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -212,13 +212,18 @@
;; DeinProgramm addition, copied from language.ss
(run-in-user-thread
(lambda ()
(global-port-print-handler
(global-port-print-handler
(lambda (value port)
(parameterize ([pretty-print-columns 'infinity])
(pretty-print value port)))))))
(let ([converted-value (simple-module-based-language-convert-value value settings)])
(setup-printing-parameters
(lambda ()
(parameterize ([pretty-print-columns 'infinity])
(pretty-print converted-value port)))
settings
'infinity)))))))
;; set-printing-parameters : settings ( -> TST) -> TST
;; is implicitly exposed to the stepper. watch out! -- john
;; is implicitly exposed to the stepper. watch out! -- john
(define/public (set-printing-parameters settings thunk)
(parameterize ([pc:booleans-as-true/false #f]
[pc:abbreviate-cons-as-list (get-abbreviate-cons-as-list)]
@ -236,12 +241,16 @@
(thunk)))
(define/override (render-value/format value settings port width)
(parameterize ([pretty-print-columns width])
(pretty-print value port)))
(set-printing-parameters
settings
(lambda ()
(simple-module-based-language-render-value/format value settings port width))))
(define/override (render-value value settings port)
(parameterize ([pretty-print-columns 'infinity])
(pretty-print value port)))
(set-printing-parameters
settings
(lambda ()
(simple-module-based-language-render-value/format value settings port 'infinity))))
(super-new)))