From a4cfdcfa242ffb83fbdbe7104a55d334b8eca38a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 18 Nov 2007 02:06:57 +0000 Subject: [PATCH] 3.99.0.3: improved namespace API svn: r7756 original commit: 391892a848cc5119c42962d68730c4b391833d07 --- collects/setup/scribble-index.ss | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/setup/scribble-index.ss b/collects/setup/scribble-index.ss index 828b18ee..d780def8 100644 --- a/collects/setup/scribble-index.ss +++ b/collects/setup/scribble-index.ss @@ -8,7 +8,6 @@ scheme/class setup/getinfo setup/dirs - syntax/namespace-reflect mzlib/serialize scheme/file) @@ -30,7 +29,7 @@ (define-struct doc (source dest)) -(define-reflection-anchor here) +(define-namespace-anchor here) (define (load-xref) (let* ([renderer (new (html:render-mixin render%) @@ -64,7 +63,7 @@ dirs)))] [ci (send renderer collect null null)]) (map (lambda (doc) - (parameterize ([current-namespace (reflection-anchor->namespace here)]) + (parameterize ([current-namespace (namespace-anchor->empty-namespace here)]) (with-handlers ([exn:fail? (lambda (exn) exn)]) (let ([r (with-input-from-file (build-path (doc-dest doc) "xref-out.ss") read)])