From ce62ef8ae042eadc94c84b896c9baeabc40d6904 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 6 Apr 2008 23:31:58 +0000 Subject: [PATCH] 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 --- collects/scribble/manual.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss index 23805328..a6c365d9 100644 --- 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))))