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

commit 4a93eb50b6d916a866eaef11797d7745be9592b6
parent 01b105c3d64f740d4af72bc5b5f2ece7f40bef82
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat, 24 Apr 2010 08:29:45 -0600

change defstruct rendering

original commit: f60c178964c60df2c4d0fab5fe5ab8b4f6fcfeb3

Diffstat:
M
collects/scribble/private/manual-proc.ss
 | 
29
++++++++++++++++++-----------

1 file changed, 18 insertions(+), 11 deletions(-)
diff --git a/collects/scribble/private/manual-proc.ss b/collects/scribble/private/manual-proc.ss
@@ -1,4 +1,4 @@
-#lang scheme/base
+#lang racket/base
 (require "../decode.ss"
          "../struct.ss"
          "../scheme.ss"
@@ -16,9 +16,9 @@
          "on-demand.ss"
          scheme/string
          scheme/list
-         (for-syntax scheme/base)
-         (for-label scheme/base
-                    scheme/class))
+         (for-syntax racket/base)
+         (for-label racket/base
+                    racket/class))
 
 (provide defproc defproc* defstruct
          defparam defparam* defboolparam
@@ -560,11 +560,15 @@
                                              #f))
                                          fields)))))])
                         (if (pair? name)
-                          (to-element (list just-name
-                                            (make-just-context
-                                             (cadr name)
-                                             (cadr (syntax-e stx-id)))))
-                          just-name))]
+                            (make-element
+                             #f
+                             (list just-name
+                                   (hspace 1)
+                                   (to-element
+                                    (make-just-context
+                                     (cadr name)
+                                     (cadr (syntax-e stx-id))))))
+                            just-name))]
                      [short-width
                       (apply + (length fields) 8
                              (append
@@ -584,14 +588,17 @@
                   (make-omitable-paragraph
                    (list
                     (to-element
-                     `(,(schemeparenfont "struct")
+                     `(,(scheme struct)
                        ,the-name
                        ,(map field-view fields)))))
                   (make-table
                    #f
                    (append
                     (list
-                     (list (to-flow (schemeparenfont "(struct"))
+                     (list (to-flow (make-element #f 
+                                                  (list
+                                                   (schemeparenfont "(")
+                                                   (scheme struct))))
                            flow-spacer
                            (to-flow the-name)
                            (if (or (null? fields)