From 6e8ba58124c4b3efcc6d5c1672aa6bc24af76f54 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 15 Nov 2007 18:14:59 +0000 Subject: [PATCH] remove all the bous exported-from annotations in the reference svn: r7739 original commit: 9e70499c8cf319e2cc21e9369ba1895771eba83c --- collects/scribble/base-render.ss | 3 ++- collects/scribble/manual-struct.ss | 3 ++- 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 index 1b29a0bc..a5d33c18 100644 --- 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 index 6722bafd..eea0b8a8 100644 --- 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 index 35d480bd..fb29cedb 100644 --- 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))))]