From d54d301db3f89d3a545f4559a61cd108ff350314 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 11 Apr 2008 18:52:03 +0000 Subject: [PATCH] fix provide generation svn: r9260 --- collects/typed-scheme/private/provide-handling.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/typed-scheme/private/provide-handling.ss b/collects/typed-scheme/private/provide-handling.ss index 9ae832cd10..a779ec3de0 100644 --- a/collects/typed-scheme/private/provide-handling.ss +++ b/collects/typed-scheme/private/provide-handling.ss @@ -72,7 +72,7 @@ (if (unbox typed-context?) (make-rename-transformer #'id) (lambda (stx) (tc-error/stx stx "The type of ~a cannot be converted to a contract" (syntax-e #'id))))) - (provide (rename export-id out-id))))])))] + (provide (rename-out [export-id out-id]))))])))] [(mem? internal-id stx-defs) => (lambda (b) @@ -85,10 +85,10 @@ (make-rename-transformer #'id) (lambda (stx) (tc-error/stx stx "Macro ~a from typed module used in untyped code" (syntax-e #'out-id))))) - (provide (rename export-id out-id))))))] + (provide (rename-out [export-id out-id]))))))] [(eq? (syntax-e internal-id) (syntax-e external-id)) #`(provide #,internal-id)] - [else #`(provide (rename #,internal-id #,external-id))])) + [else #`(provide (rename-out [#,internal-id #,external-id]))])) (kernel-syntax-case form #f [(#%provide form ...) (map