chunks are translated to subsections -- not working right yet, but save a checkpoint

svn: r13651

collects/games/chat-noir/literate-doc-wrapper.ss

@@ -10,11 +10,12 @@
 
 ;; define `chunk' as a macro that typesets the code
 (define-syntax-rule (chunk name expr ...)
-  (make-splice (list (emph (scheme name) " ::=")
+  (make-splice (list (subsection #:tag (format "~a" 'name)
+                                 (scheme name))
                      (schemeblock expr ...))))
 
 ;; HACK: provide a fake `module', which makes it possible to include a module
 ;; and get only its code in.
 (provide module)
-(define-syntax module
-  (syntax-rules () [(module name base body ...) (begin body ...)]))
+(define-syntax-rule (module name base body ...)
+  (begin body ...))