From 3fe9ae319345a7690f86dd8c3749a7b3d17f35a5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 17 May 2009 12:31:51 +0000 Subject: [PATCH] identifier-prune-lexical-context (4.2.0.2) svn: r14850 original commit: 70859f0d0bcb1b67fccd16208dfa5cd9289dfd2e --- collects/scheme/package.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/collects/scheme/package.ss b/collects/scheme/package.ss index 38bbbed..167c2c4 100644 --- a/collects/scheme/package.ss +++ b/collects/scheme/package.ss @@ -266,10 +266,13 @@ (let* ([exports-renamed (bound-identifier-mapping-map tmp (lambda (k v) k))] [exports (map (lambda (id) (pre-package-id id def-ctxes)) exports-renamed)]) - (values exports exports-renamed)))))]) - (with-syntax ([(export ...) exports] - [(renamed ...) exports-renamed] - [(hidden ...) (complement new-bindings exports-renamed)]) + (values exports exports-renamed)))))] + [(prune) + (lambda (stx) + (identifier-prune-lexical-context stx (list (syntax-e stx) '#%top)))]) + (with-syntax ([(export ...) (map prune exports)] + [(renamed ...) (map prune exports-renamed)] + [(hidden ...) (map prune (complement new-bindings exports-renamed))]) (let ([body (map (fixup-sub-package exports-renamed defined-renamed def-ctxes) (reverse rev-forms))]) (if (eq? mode '#:begin)