From 240900bef24db54486ecfad57032173bfd7216f3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 30 May 2008 18:36:08 +0000 Subject: [PATCH] made the repl printer use current-print svn: r10053 --- collects/drscheme/private/rep.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss index 1b4fae527d..8f96797ad2 100644 --- a/collects/drscheme/private/rep.ss +++ b/collects/drscheme/private/rep.ss @@ -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)))