From 3706937dac1b81c9ae28670f8a77b0d55ebc6b2c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 19 Dec 2018 17:58:12 -0800 Subject: [PATCH] parameterize current-metas around `root` (fixes #188) --- pollen/private/main-base.rkt | 3 ++- pollen/private/ts.rktd | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/pollen/private/main-base.rkt b/pollen/private/main-base.rkt index 9e0b353..ba34524 100644 --- a/pollen/private/main-base.rkt +++ b/pollen/private/main-base.rkt @@ -47,7 +47,8 @@ (define proc (make-parse-proc PARSER-MODE ROOT-ID)) (define trimmed-xs (strip-leading-newlines xs)) (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 (provide METAS-ID) (define METAS-ID META-HASH)) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index aa2e75d..fdabb35 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1544914993 +1545271092