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

made values print properly, fixing PR 8962

Browse Source 
svn: r7457
This commit is contained in:
Robby Findler 2007-10-08 21:09:35 +00:00
parent dd31459f28
commit 6517bfefda
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/lang/htdp-langs.ss
View File

@ -158,11 +158,21 @@
(namespace-attach-module drs-namespace 'drscheme-secrets)
(namespace-attach-module drs-namespace set-result-module-name)
(error-display-handler teaching-languages-error-display-handler)
(error-value->string-handler (λ (x y) (teaching-languages-error-value->string settings x y)))
(current-eval (add-annotation (htdp-lang-settings-tracing? settings) (current-eval)))
(error-print-source-location #f)
(read-decimal-as-inexact #f)
(read-accept-dot (get-read-accept-dot)))))
(super on-execute settings run-in-user-thread))
(define/private (teaching-languages-error-value->string settings v len)
(let ([sp (open-output-string)])
(set-printing-parameters settings (λ () (print v sp)))
(flush-output sp)
(let ([s (get-output-string sp)])
(cond
[(<= (string-length s) len) s]
[else (string-append (substring s 0 (- len 3)) "...")]))))
;; set-printing-parameters : settings ( -> TST) -> TST
;; is implicitly exposed to the stepper. watch out! -- john