suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix test to allow a doc submodule

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-01 14:36:09 -07:00
parent 0f0d662b14
commit 1db48e6fc6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scribble-test/tests/scribble/docs.rkt
View File

@ -18,7 +18,9 @@
(define (build-doc render% src-file dest-file)
(let* ([renderer (new render% [dest-dir work-dir])]
[docs (list (dynamic-require src-file 'doc))]
[docs (list (if (module-declared? `(submod ,src-file doc) #t)
(dynamic-require `(submod ,src-file doc) 'doc)
(dynamic-require src-file 'doc)))]
[fns (list (build-path work-dir dest-file))]
[fp (send renderer traverse docs fns)]
[info (send renderer collect docs fns fp)]