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

scribble/base: fix verbatim

Browse Source 
Typewriter font got lost in generalization to support non-string
arguments.
This commit is contained in:
Matthew Flatt 2013-11-12 09:33:25 -07:00
parent 37a56202dd
commit 24a132b8d1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/scribble-pkgs/scribble-lib/scribble/base.rkt
View File

@ -567,7 +567,7 @@
;; that the space is preserved exactly: ;; that the space is preserved exactly:
(let ([spaces (regexp-match-positions #rx"(?:^| ) +" str)]) (let ([spaces (regexp-match-positions #rx"(?:^| ) +" str)])
(if spaces (if spaces
(list* (substring str 0 (caar spaces)) (list* (make-element 'tt (substring str 0 (caar spaces)))
(hspace (- (cdar spaces) (caar spaces))) (hspace (- (cdar spaces) (caar spaces)))
(str->elts (substring str (cdar spaces)))) (str->elts (substring str (cdar spaces))))
(list (make-element 'tt (list str)))))) (list (make-element 'tt (list str))))))