oops
svn: r8567 original commit: 5666dd3d81b48633c98c5fcba5f8f37ebf104647
This commit is contained in:
parent
0b70f28085
commit
84271feef5
|
@ -64,7 +64,6 @@
|
||||||
|
|
||||||
(define (xref-render xrefs doc dest-file #:render% [render% (html:render-mixin render%)])
|
(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)]
|
(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)])]
|
[renderer (new render% [dest-dir (path-only dest-file)])]
|
||||||
[ci (send renderer collect (list doc) (list dest-file))])
|
[ci (send renderer collect (list doc) (list dest-file))])
|
||||||
(send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))
|
(send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user