parameterize current-metas around `root` (fixes #188)

candidate-v2.0
Matthew Butterick 6 years ago
parent 94954f1473
commit 3706937dac

@ -47,7 +47,8 @@
(define proc (make-parse-proc PARSER-MODE ROOT-ID)) (define proc (make-parse-proc PARSER-MODE ROOT-ID))
(define trimmed-xs (strip-leading-newlines xs)) (define trimmed-xs (strip-leading-newlines xs))
(define doc-elements (splice trimmed-xs (setup:splicing-tag))) (define doc-elements (splice trimmed-xs (setup:splicing-tag)))
(proc doc-elements)) ; positional arg for doclang-raw: post-processor (parameterize ([current-metas METAS-ID])
(proc doc-elements))) ; positional arg for doclang-raw: post-processor
(module META-MOD-ID racket/base (module META-MOD-ID racket/base
(provide METAS-ID) (provide METAS-ID)
(define METAS-ID META-HASH)) (define METAS-ID META-HASH))

@ -1 +1 @@
1544914993 1545271092

Loading…
Cancel
Save