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

made the repl printer use current-print

Browse Source 
svn: r10053
This commit is contained in:
Robby Findler 2008-05-30 18:36:08 +00:00
parent 0d54645ab9
commit 240900bef2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/drscheme/private/rep.ss
View File

@ -599,9 +599,9 @@ TODO
(define/public (get-context) context)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ;;;
;;; ;;;
;;; User -> Kernel ;;;
;;; ;;;
;;; ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; =User= (probably doesn't matter)
@ -633,10 +633,10 @@ TODO
(display-results/void (filter (λ (x) (not (void? x))) anss)))
;; display-results : (listof TST) -> void
;; prints each element of anss that is not void as values in the REPL.
;; prints each element of anss in the REPL.
(define/public (display-results/void anss) ; =User=, =Handler=, =Breaks=
(for-each
(λ (v)
(λ (v)
(let* ([ls (current-language-settings)]
[lang (drscheme:language-configuration:language-settings-language ls)]
[settings (drscheme:language-configuration:language-settings-settings ls)])
@ -1120,7 +1120,7 @@ TODO
(λ args
(abort-current-continuation
(default-continuation-prompt-tag))))))
(λ x (display-results x)))
(λ x (for-each (λ (x) ((current-print) x)) x)))
(loop)))))))
(default-continuation-prompt-tag)
(λ args (void)))