suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r9174

original commit: 53cc426d30e7112715395f81ac09f9b44bb21d6f
This commit is contained in:
Matthew Flatt 2008-04-06 23:31:58 +00:00
parent bc13980309
commit ce62ef8ae0
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/manual.ss
View File

@ -175,7 +175,7 @@
(unless (andmap string? strs) (unless (andmap string? strs)
(raise-type-error 'litchar "strings" strs)) (raise-type-error 'litchar "strings" strs))
(let ([s (apply string-append (let ([s (apply string-append
(map (lambda (s) (if (string=? s "\n") " " s)) (map (lambda (s) (regexp-replace* "\n" s " "))
strs))]) strs))])
(if (regexp-match? #rx"^ *$" s) (if (regexp-match? #rx"^ *$" s)
(make-element "schemeinputbg" (list (hspace (string-length s)))) (make-element "schemeinputbg" (list (hspace (string-length s))))