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

Guide corrections

Browse Source 
original commit: bedd7b16713bcea67f44e8bc7e30a5782b8a1f66
This commit is contained in:
Matthew Flatt 2011-08-26 10:01:28 -06:00
parent fa41cf795e
commit d1d35d28bf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/eval.rkt
View File

@ -41,7 +41,7 @@
(namespace-require '(for-syntax racket/base))
(define (literal-string style s)
(let ([m (regexp-match #rx"^(.*)( +)(.*)$" s)])
(let ([m (regexp-match #rx"^(.*)( +|^ )(.*)$" s)])
(if m
(make-element #f (list (literal-string style (cadr m))
(hspace (string-length (caddr m)))