From 89a582c874f76bf17119c0aa77cacf3abc612d0f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Dec 2007 18:19:07 +0000
Subject: [PATCH] document the scheme/control library

svn: r7971

original commit: 020948cf1baf318dc37f0d7a9483de8c5e5dd5f9
---
 collects/scribble/manual.ss | 38 +++++++++++++++++++++++++++++++++----
 1 file changed, 34 insertions(+), 4 deletions(-)

diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index 7a7ea592..e8024a44 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -438,6 +438,7 @@
   ;; ----------------------------------------
 
   (provide declare-exporting
+           deftogether
            defproc defproc* defstruct defthing defthing* defparam defboolparam
            defform defform* defform/subs defform*/subs defform/none
            defidform
@@ -769,6 +770,24 @@
      (lambda (render part ri)
        (proc
         (or (get-exporting-libraries render part ri) null)))))
+
+  (define (*deftogether boxes . body)
+    (make-splice
+     (cons
+      (make-table
+       'boxed
+       (map (lambda (box)
+              (unless (and (splice? box)
+                           (= 1 (length (splice-run box)))
+                           (table? (car (splice-run box)))
+                           (eq? 'boxed (table-style (car (splice-run box)))))
+                (error 'deftogether "element is not a splice containing a single table: ~e" box))
+              (list (make-flow (list (make-table #f (table-flowss (car (splice-run box))))))))
+            boxes))
+      body)))
+
+  (define-syntax-rule (deftogether (box ...) . body)
+    (*deftogether (list box ...) . body))
     
   (define (*defproc mode within-id
                     stx-ids prototypes arg-contractss arg-valss result-contracts content-thunk)
@@ -1581,11 +1600,22 @@
            (rename-out [a-bib-entry? bib-entry?])
            bibliography)
 
-  (define (cite key)
-    (make-link-element
+  (define (cite key . keys)
+    (make-element
      #f
-     (list (format "[~a]" key))
-     `(cite ,key)))
+     (list "["
+           (let loop ([keys (cons key keys)])
+             (if (null? (cdr keys))
+                 (make-link-element
+                  #f
+                  (list (car keys))
+                  `(cite ,(car keys)))
+                 (make-element
+                  #f
+                  (list (loop (list (car keys)))
+                        ", "
+                        (loop (cdr keys))))))
+           "]")))
 
   (define-struct a-bib-entry (key val))