suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix `codeblock' handling of spaces

Browse Source 
for a chunk that also includes newlines
This commit is contained in:
Matthew Flatt 2011-06-22 07:48:23 -06:00
parent 3f95fabf7c
commit 52825c68a1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/private/manual-code.rkt
View File

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