suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typo

Browse Source 
svn: r11113
This commit is contained in:
Sam Tobin-Hochstadt 2008-08-06 20:47:28 +00:00
parent 2d553df7ef
commit 44e0c09d75
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/private/base-types.ss
View File

@ -39,7 +39,7 @@
[(_ mod) [(_ mod)
(datum->syntax (datum->syntax
stx 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 'nm ...)
(list #'nms ...))))])) (list #'nms ...))))]))
(define-syntax provider (lambda (stx) #'(begin (provide (rename-out [nms nm])) ...))) (define-syntax provider (lambda (stx) #'(begin (provide (rename-out [nms nm])) ...)))