svn: r8567

original commit: 5666dd3d81b48633c98c5fcba5f8f37ebf104647
This commit is contained in:
Eli Barzilay 2008-02-07 17:26:03 +00:00
parent 0b70f28085
commit 84271feef5

View File

@ -64,7 +64,6 @@
(define (xref-render xrefs doc dest-file #:render% [render% (html:render-mixin render%)])
(let* ([dest-file (if (string? dest-file) (string->path dest-file) dest-file)]
[_ (printf ">>> ~s\n" dest-file)]
[renderer (new render% [dest-dir (path-only dest-file)])]
[ci (send renderer collect (list doc) (list dest-file))])
(send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))