change DrScheme to set current-print

svn: r9850

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)])

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}