From 0d943763a3efe6cd0616bc9ce2e63b92d4e100e9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 12 Feb 2008 21:50:35 +0000
Subject: [PATCH] fix a scribble bug; add r6rs reader

svn: r8635

original commit: 0dc359a956978ffac13dacf31c4b07b80a81a709
---
 collects/scribble/manual.ss                | 11 +++++++----
 collects/scribblings/scribble/manual.scrbl |  4 ++--
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
index be2e4b6b..f6228e21 100644
--- a/collects/scribble/manual.ss
+++ b/collects/scribble/manual.ss
@@ -1424,10 +1424,12 @@
                         (let ([just-name
                                (make-target-element*
                                 make-toc-target-element
-                                stx-id
+                                (if (pair? name)
+                                    (car (syntax-e stx-id))
+                                    stx-id)
                                 (annote-exporting-library
                                  (to-element (if (pair? name)
-                                                 (make-just-context (car name) stx-id)
+                                                 (make-just-context (car name) (car (syntax-e stx-id)))
                                                  stx-id)))
                                 (let ([name (if (pair? name)
                                                 (car name)
@@ -1445,13 +1447,14 @@
                                            (map (lambda (f)
                                                   (if (or (not immutable?)
                                                           (and (pair? (car f))
-                                                                (memq '#:mutable (car f))))
+                                                               (memq '#:mutable (car f))))
                                                       (list 'mutator 'set- name '- (field-name f) '!)
                                                       #f))
                                                 fields))))))])
                           (if (pair? name)
                               (to-element (list just-name
-                                                (make-just-context (cadr name) stx-id)))
+                                                (make-just-context (cadr name) 
+                                                                   (cadr (syntax-e stx-id)))))
                               just-name))]
                        [short-width (apply +
                                            (length fields)
diff --git a/collects/scribblings/scribble/manual.scrbl b/collects/scribblings/scribble/manual.scrbl
index 5c2c541a..6e977cf7 100644
--- a/collects/scribblings/scribble/manual.scrbl
+++ b/collects/scribblings/scribble/manual.scrbl
@@ -583,9 +583,9 @@ of by-name arguments (for use with @scheme[new]).}
 Like @scheme[defconstructor/make], but with multiple constructor
 patterns analogous @scheme[defproc*].}
 
-@defform[(defconstructor/super-init [(arg-spec ...) ...] pre-flow ...)]{
+@defform[(defconstructor/auto-super [(arg-spec ...) ...] pre-flow ...)]{
 
-Like @scheme[defconstructor/super-init], but the constructor is
+Like @scheme[defconstructor], but the constructor is
 annotated to indicate that additional initialization arguments are
 accepted and propagated to the sueprclass.}