From 44e0c09d75e10fc4d3cd9e21ad60fd24e41d23c5 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 6 Aug 2008 20:47:28 +0000 Subject: [PATCH] Fix typo svn: r11113 --- collects/typed-scheme/private/base-types.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/private/base-types.ss b/collects/typed-scheme/private/base-types.ss index c36c4ca1e7..cc4bb42a3d 100644 --- a/collects/typed-scheme/private/base-types.ss +++ b/collects/typed-scheme/private/base-types.ss @@ -39,7 +39,7 @@ [(_ mod) (datum->syntax stx - `(require . ,(map (lambda (nm* nms*) (datum->syntax stx `(rename ,#'mod ,nm* ,nms*))) + `(require . ,(map (lambda (nm* nms*) (datum->syntax stx `(rename-in ,#'mod [,nm* ,nms*]))) (list 'nm ...) (list #'nms ...))))])) (define-syntax provider (lambda (stx) #'(begin (provide (rename-out [nms nm])) ...)))