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

check-syntax binding for open-package's package id

Browse Source 
svn: r14498

original commit: 0be3dca240500caf2640ad59a6e34868a89693c6
This commit is contained in:
Matthew Flatt 2009-04-13 14:52:14 +00:00
parent 7e81aaeb65
commit a2181635c9
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/package.ss
View File

@ -391,6 +391,7 @@
(syntax-local-introduce (cdr p)))) (syntax-local-introduce (cdr p))))
((package-exports v)))] ((package-exports v)))]
[(h ...) (map syntax-local-introduce ((package-hidden v)))]) [(h ...) (map syntax-local-introduce ((package-hidden v)))])
(syntax-property
#`(#,define-syntaxes-id (intro ...) #`(#,define-syntaxes-id (intro ...)
(let ([rev-map (lambda (x) (let ([rev-map (lambda (x)
(reverse-mapping (reverse-mapping
@ -401,7 +402,9 @@
...) ...)
(list (quote-syntax h) ...)))]) (list (quote-syntax h) ...)))])
(values (make-rename-transformer #'defined rev-map) (values (make-rename-transformer #'defined rev-map)
...)))))))])) ...)))
'disappeared-use
(syntax-local-introduce id))))))]))
(define-syntax (open-package stx) (define-syntax (open-package stx)
(do-open stx #'define-syntaxes)) (do-open stx #'define-syntaxes))