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

commit ad8ba406ee7072e76267b4d28a2909dc5f11a294
parent 9f6f5d981293dd02316e245fb967de08df1a68ab
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Wed, 22 Jun 2011 07:48:23 -0600

fix `codeblock' handling of spaces
 for a chunk that also includes newlines

original commit: 52825c68a15841282de4f7c0e60e832a728de6fb

Diffstat:
M
collects/scribble/private/manual-code.rkt
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/private/manual-code.rkt b/collects/scribble/private/manual-code.rkt
@@ -197,9 +197,9 @@
   (cond
    [(regexp-match-positions #rx"(?:\r\n|\r|\n)" s)
     => (lambda (m)
-         (list* (element style (substring s 0 (caar m)))
-                'newline
-                (split-lines style (substring s (cdar m)))))]
+         (append (split-lines style (substring s 0 (caar m)))
+                 (list 'newline)
+                 (split-lines style (substring s (cdar m)))))]
    [(regexp-match-positions #rx" +" s)
     => (lambda (m)
          (append (split-lines style (substring s 0 (caar m)))