bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE
commit ce62ef8ae042eadc94c84b896c9baeabc40d6904
parent bc13980309deace7a9c0dfcbd8155010102da471
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun,  6 Apr 2008 23:31:58 +0000

expans #reader/#lang protocol so that a #lang result can have more appropriate srclocs; fix up syntax/module-reader to use the new protocol; re-enable arrows to the language position in Check Syntax

svn: r9174

original commit: 53cc426d30e7112715395f81ac09f9b44bb21d6f

Diffstat:

Mcollects/scribble/manual.ss | 2+-


1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -175,7 +175,7 @@
     (unless (andmap string? strs)
       (raise-type-error 'litchar "strings" strs))
     (let ([s (apply string-append
-                    (map (lambda (s) (if (string=? s "\n") " " s))
+                    (map (lambda (s) (regexp-replace* "\n" s " "))
                          strs))])
       (if (regexp-match? #rx"^ *$" s)
           (make-element "schemeinputbg" (list (hspace (string-length s))))