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

fixed hack for PR7782

Browse Source 
svn: r1703
This commit is contained in:
Eli Barzilay 2005-12-28 03:01:14 +00:00
parent af9b25ff0f
commit 44806af30b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/swindle/extra.ss
View File

@ -601,7 +601,8 @@
;;> Swindle values in errors, when using `printf' etc. ;;> Swindle values in errors, when using `printf' etc.
(define* (install-swindle-printer) (define* (install-swindle-printer)
(global-port-print-handler write-object) (global-port-print-handler write-object)
(current-print write-object) ; see PR7782 (current-print ; see PR7782
(lambda (x) (unless (void? x) (write-object x) (newline))))
(port-display-handler (current-output-port) display-object) (port-display-handler (current-output-port) display-object)
(port-display-handler (current-error-port) display-object) (port-display-handler (current-error-port) display-object)
(port-write-handler (current-output-port) write-object) (port-write-handler (current-output-port) write-object)