From 3467bf2ce644a276e4748c0ebdf8b734581f4869 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Mon, 16 Feb 2009 03:19:05 +0000 Subject: [PATCH] chunks are translated to subsections -- not working right yet, but save a checkpoint svn: r13651 --- collects/games/chat-noir/literate-doc-wrapper.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/games/chat-noir/literate-doc-wrapper.ss b/collects/games/chat-noir/literate-doc-wrapper.ss index 5c59a784ae..a5a0a587f9 100644 --- a/collects/games/chat-noir/literate-doc-wrapper.ss +++ b/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 ...))