From 4728ffe3037aa40a57d21b32b2890c6f7432b472 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 May 2008 16:31:51 +0000
Subject: [PATCH] change DrScheme to set current-print

svn: r9850
---
 collects/drscheme/private/rep.ss                |  5 ++++-
 .../drscheme/interface-essentials.scrbl         | 17 +++++++++++++----
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index e6ab8a72b5..510dc7e085 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -1433,7 +1433,10 @@ TODO
           (current-output-port (get-out-port))
           (current-error-port (get-err-port))
           (current-value-port (get-value-port))
-          (current-input-port (get-in-box-port)))
+          (current-input-port (get-in-box-port))
+
+          (current-print (lambda (v)
+                           (display-results (list v)))))
         
         (define/private (initialize-dispatch-handler) ;;; =User=
           (let* ([primitive-dispatch-handler (event-dispatch-handler)])
diff --git a/collects/scribblings/drscheme/interface-essentials.scrbl b/collects/scribblings/drscheme/interface-essentials.scrbl
index 9873c21f7d..b6271bddd6 100644
--- a/collects/scribblings/drscheme/interface-essentials.scrbl
+++ b/collects/scribblings/drscheme/interface-essentials.scrbl
@@ -395,7 +395,8 @@ the program
 @schememod[
 scheme
 (define v (read))
-(display v)
+(display v) (newline)
+v
 ]
 
 and provide the input S-expression @scheme[(1 2)], the interactions
@@ -437,9 +438,9 @@ second @scheme[(read)]:
 @schemeblock[
 #, @tt{>} (read)
 #, @ioinputfont{5 6}
-#, @iooutputfont{5}
+#, @schemeresult[5]
 #, @tt{>} (read)
-#, @iooutputfont{6}
+#, @schemeresult[6]
 #, @tt{>} #, @tt{_}
 ]
 
@@ -450,12 +451,20 @@ inserts a newline character into the input stream:
 #, @tt{>} (read)
 #, @ioinputfont{5}
 
-#, @iooutputfont{5}
+#, @schemeresult[5]
 #, @tt{>} (read-char)
 #, @schemeresult[#\newline]
 #, @tt{>} #, @tt{_}
 ]
 
+Within a @scheme[#, @hash-lang[] #, @schememodname[scheme]] module,
+the results of top-level expression print the same as the results of
+an expression entered in the @tech{interactions window}. The reason is
+that @scheme[#, @hash-lang[] #, @schememodname[scheme]] explicitly
+prints the results of top-level expressions using
+@scheme[(current-print)], and DrScheme sets @scheme[(current-print)]
+to print values in the same way as for interactions.
+
 @; ----------------------------------------------------------------------
 
 @section{Graphical Syntax}