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

commit 6e8ba58124c4b3efcc6d5c1672aa6bc24af76f54
parent c6ee14bc8e0429ceb5984d4f60744b31342a62bd
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 15 Nov 2007 18:14:59 +0000

remove all the bous exported-from annotations in the reference

svn: r7739

original commit: 9e70499c8cf319e2cc21e9369ba1895771eba83c

Diffstat:
M
collects/scribble/base-render.ss
 | 
3
++-
M
collects/scribble/manual-struct.ss
 | 
3
++-
M
collects/scribble/manual.ss
 | 
4
+++-

3 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/base-render.ss b/collects/scribble/base-render.ss
@@ -292,7 +292,8 @@
 
       (define/public (render ds fns ri)
         (map (lambda (d fn)
-               (printf " [Output to ~a]\n" fn)
+               (when #f
+                 (printf " [Output to ~a]\n" fn))
                (with-output-to-file fn
                  #:exists 'truncate/replace
                  (lambda ()
diff --git a/collects/scribble/manual-struct.ss b/collects/scribble/manual-struct.ss
@@ -6,7 +6,8 @@
 (provide-structs
  [exported-index-desc ([name symbol?]
                         [from-libs (listof module-path?)])]
- [(method-index-desc exported-index-desc) ([method-name symbol?])]
+ [(method-index-desc exported-index-desc) ([method-name symbol?]
+                                           [class-tag tag?])]
  [(procedure-index-desc exported-index-desc) ()]
  [(thing-index-desc exported-index-desc) ()]
  [(struct-index-desc exported-index-desc) ()]
diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss
@@ -713,7 +713,9 @@
                                                                                                      (make-method-index-desc 
                                                                                                       (syntax-e within-id)
                                                                                                       libs
-                                                                                                      mname)))))
+                                                                                                      mname
+                                                                                                      (register-scheme-definition 
+                                                                                                       within-id #t))))))
                                                                         tag)
                                                                        (car content)))
                                                                  (*method (car prototype) within-id))))]