suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

3.99.0.3: improved namespace API

Browse Source 
svn: r7756

original commit: 391892a848cc5119c42962d68730c4b391833d07
This commit is contained in:
Matthew Flatt 2007-11-18 02:06:57 +00:00
parent e8d4ccf1d4
commit a4cfdcfa24
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/setup/scribble-index.ss
View File

@ -8,7 +8,6 @@
scheme/class scheme/class
setup/getinfo setup/getinfo
setup/dirs setup/dirs
syntax/namespace-reflect
mzlib/serialize mzlib/serialize
scheme/file) scheme/file)
@ -30,7 +29,7 @@
(define-struct doc (source dest)) (define-struct doc (source dest))
(define-reflection-anchor here) (define-namespace-anchor here)
(define (load-xref) (define (load-xref)
(let* ([renderer (new (html:render-mixin render%) (let* ([renderer (new (html:render-mixin render%)
@ -64,7 +63,7 @@
dirs)))] dirs)))]
[ci (send renderer collect null null)]) [ci (send renderer collect null null)])
(map (lambda (doc) (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)]) (with-handlers ([exn:fail? (lambda (exn) exn)])
(let ([r (with-input-from-file (build-path (doc-dest doc) "xref-out.ss") (let ([r (with-input-from-file (build-path (doc-dest doc) "xref-out.ss")
read)]) read)])