From 1db48e6fc6b772a346982b405587ef298cb4d4a9 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 1 Jan 2016 14:36:09 -0700 Subject: [PATCH] fix test to allow a `doc` submodule --- scribble-test/tests/scribble/docs.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/scribble-test/tests/scribble/docs.rkt b/scribble-test/tests/scribble/docs.rkt index 9cd61641..57458426 100644 --- a/scribble-test/tests/scribble/docs.rkt +++ b/scribble-test/tests/scribble/docs.rkt @@ -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)]