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

r6rs io work; compiler tweaks

Browse Source 
svn: r8805

original commit: 743db7529d4d83aad4cf6dd63355bb1131cabfa1
This commit is contained in:
Matthew Flatt 2008-02-26 13:54:54 +00:00
parent ae4fae1832
commit 510741c3b2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scribble/manual.ss
View File

@ -1885,6 +1885,12 @@
(cond (cond
[(string? i) [(string? i)
(cond (cond
[(regexp-match #px"^(.*)_([a-zA-Z0-9]+)(.*)$" i)
=> (lambda (m)
(append (loop (cadr m))
(list (make-element 'subscript
(loop (caddr m))))
(loop (cadddr m))))]
[(regexp-match #px"^(.*)([()0-9{}\\[\\]])(.*)$" i) [(regexp-match #px"^(.*)([()0-9{}\\[\\]])(.*)$" i)
=> (lambda (m) => (lambda (m)
(append (loop (cadr m)) (append (loop (cadr m))