From 710501321fdfebe729e8ee0c490f80fd09bed4ba Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 13 Jun 2019 07:34:10 -0700 Subject: [PATCH] fix implicit provide --- pollen/private/main-base.rkt | 6 ++++-- pollen/private/ts.rktd | 2 +- pollen/test/test-provider.rkt | 10 ++++++++++ 3 files changed, 15 insertions(+), 3 deletions(-) create mode 100644 pollen/test/test-provider.rkt diff --git a/pollen/private/main-base.rkt b/pollen/private/main-base.rkt index f163368..464b0e3 100644 --- a/pollen/private/main-base.rkt +++ b/pollen/private/main-base.rkt @@ -41,7 +41,8 @@ [METAS-ID-CALLER (datum->syntax #'EXPRS (setup:meta-export))] [ROOT-ID (datum->syntax #'EXPRS (setup:main-root-node))] [POLLEN/TOP (datum->syntax #'EXPRS 'pollen/top)] - [DOC-ID (setup:main-export)]) + [DOC-ID (setup:main-export)] + [ALL-DEFINED-OUT (datum->syntax #'EXPRS '(all-defined-out))]) #'(doclang:#%module-begin DOC-ID ; positional arg for doclang-raw: name of export (λ (xs) @@ -54,7 +55,8 @@ (provide METAS-ID) (define METAS-ID META-HASH)) (require POLLEN/TOP (submod "." METAS-ID)) - (provide (all-defined-out) METAS-ID DOC-ID) + (provide ALL-DEFINED-OUT ; implicitly picks up METAS-ID-CALLER + DOC-ID) (define prev-metas (current-metas)) (define METAS-ID-CALLER METAS-ID) (and (current-metas METAS-ID) "") ; because empty strings get stripped, voids don't diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index a5683c7..43a32f2 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1560281665 +1560436450 diff --git a/pollen/test/test-provider.rkt b/pollen/test/test-provider.rkt new file mode 100644 index 0000000..a2c1ce3 --- /dev/null +++ b/pollen/test/test-provider.rkt @@ -0,0 +1,10 @@ +#lang racket/base + +(module provider pollen + (define foo 42) + "word") + +(require rackunit 'provider) +(check-equal? foo 42) +(check-equal? metas (hasheq)) +(check-equal? doc "word") \ No newline at end of file