From 1f38a6cb0a1f94f32d0618ba3abf4771b912dc6b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 12 Mar 2008 00:22:26 +0000 Subject: [PATCH] fix (rnrs) so that it exports everything in both phase 0 and 1 svn: r8954 --- collects/rnrs/main-6.ss | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/collects/rnrs/main-6.ss b/collects/rnrs/main-6.ss index 7ad9ddbdd7..fe54042f84 100644 --- a/collects/rnrs/main-6.ss +++ b/collects/rnrs/main-6.ss @@ -24,10 +24,20 @@ rnrs/records/syntactic-6 rnrs/records/procedural-6)] [(_ id) (begin - (require id) - (provide (all-from-out id)))] + (require id + ;; Shift any run time exports to for-syntax: + (for-syntax (only-meta-in 0 id)) + ;; Shift any for-syntax exports for run time: + (for-template (only-meta-in 1 id))) + (provide (all-from-out id) + (for-template (all-from-out id)) + (for-syntax (all-from-out id))))] [(_ id ...) (begin (re-export id) ...)])) (re-export) +;; Also need to export prelims for syntax, since there will +;; not be a for-syntax import when this module is imported: +(require (for-syntax r6rs/private/prelims)) +(provide (for-syntax (all-from-out r6rs/private/prelims)))