From 6654439df1d70698e39072824f90d897a874dd68 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 30 Jan 2009 16:41:42 +0000
Subject: [PATCH] fix Scribble output of multi-line error messages, especially
 when they contain a blank line; minor doc repairs

svn: r13325

original commit: 6c77acf6f1e114040d68454858f2a998ef83e0cd
---
 collects/scribble/eval.ss | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/collects/scribble/eval.ss b/collects/scribble/eval.ss
index bfac65d4..269dc707 100644
--- a/collects/scribble/eval.ss
+++ b/collects/scribble/eval.ss
@@ -93,11 +93,7 @@
                  ;; Error result case:
                  (map
                   (lambda (s)
-                    (list (make-flow (list (make-paragraph
-                                            (list
-                                             (hspace 2)
-                                             (span-class "schemeerror"
-                                                         (italic s))))))))
+                    (car (format-output s "schemeerror")))
                   (let sloop ([s (caar val-list+outputs)])
                      (if ((string-length s) . > . maxlen)
                          ;; break the error message into multiple lines: