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

commit 7c83877190ca7910b400f692b2b9baadc24d25e9
parent c442655ac2125514b0838b65320892a9b6a738be
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Wed, 13 Aug 2008 01:25:53 +0000

better error reporting for code:comment, and better docs for schememod

svn: r11211

original commit: e233989e1d04ed9d0cc4def485739819cb178432

Diffstat:
M
collects/scribble/scheme.ss
 | 
6
++++++
M
collects/scribblings/scribble/manual.scrbl
 | 
5
++++-

2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/scheme.ss b/collects/scribble/scheme.ss
@@ -312,6 +312,12 @@
             (advance c init-line!)]
            [(and (pair? (syntax-e c))
                  (eq? (syntax-e (car (syntax-e c))) 'code:comment))
+            (let ([l (syntax->list c)])
+              (unless (and l (= 2 (length l)))
+                (raise-syntax-error
+                 #f
+                 "does not have a single sub-form"
+                 c)))
             (advance c init-line!)
             (out "; " comment-color)
             (let ([v (syntax->datum (cadr (syntax->list c)))])
diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl
@@ -122,7 +122,10 @@ without insetting the code.}
 
 @defform[(schememod lang datum ...)]{Like @scheme[schemeblock], but
 the @scheme[datum] are typeset inside a @schememodfont{#lang}-form
-module whose language is @scheme[lang].}
+module whose language is @scheme[lang]. The source location of
+@scheme[lang] (relative to the body @scheme[datum]s) determines the
+relative positioning of the @schememodfont{#lang} line in the typeset
+output.}
 
 @defform[(scheme datum ...)]{Like @scheme[schemeblock], but typeset on
 a single line and wrapped with its enclosing paragraph, independent of