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

commit bc815b0a1430be8bd6e1463b09b7dde6f37caf0b
parent e06d072534735a43f903f12dd3a3334fedb03cc3
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu,  1 May 2008 19:51:52 +0000

finish DrScheme doc port

svn: r9572

original commit: 58f1177258da185b47f063a3e1c14c193260fde0

Diffstat:
M
collects/scribble/manual.ss
 | 
8
+++++++-

1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -303,7 +303,13 @@
            [s (element->string f)])
       (index* (list (substring s 1 (sub1 (string-length s)))) (list f) f)))
   (define (exec . str)
-    (make-element 'tt str))
+    (if (andmap string? str)
+        (make-element 'tt str)
+        (make-element #f (map (lambda (s)
+                                (if (string? s)
+                                    (make-element 'tt (list s))
+                                    s))
+                              str))))
   (define (Flag . str)
     (make-element 'no-break (list (make-element 'tt (cons "-" (decode-content str))))))
   (define (DFlag . str)