bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 510741c3b2abe5ce438ca145faf02f4ae1e0b6a5
parent ae4fae1832c0f9c479e57ab8a4276364fdc74768
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Tue, 26 Feb 2008 13:54:54 +0000

r6rs io work; compiler tweaks

svn: r8805

original commit: 743db7529d4d83aad4cf6dd63355bb1131cabfa1

Diffstat:
M
collects/scribble/manual.ss
 | 
6
++++++

1 file changed, 6 insertions(+), 0 deletions(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -1885,6 +1885,12 @@
                                        (cond
                                         [(string? i)
                                          (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)
                                            => (lambda (m)
                                                 (append (loop (cadr m))