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

commit a4cfdcfa242ffb83fbdbe7104a55d334b8eca38a
parent e8d4ccf1d48e40a6a24d46f04135f36ee606175d
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sun, 18 Nov 2007 02:06:57 +0000

3.99.0.3: improved namespace API

svn: r7756

original commit: 391892a848cc5119c42962d68730c4b391833d07

Diffstat:
M
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
@@ -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)])