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

fix (rnrs) so that it exports everything in both phase 0 and 1

Browse Source 
svn: r8954
This commit is contained in:
Matthew Flatt 2008-03-12 00:22:26 +00:00
parent 9ecf9dfe4a
commit 1f38a6cb0a
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/rnrs/main-6.ss
View File

@ -24,10 +24,20 @@
rnrs/records/syntactic-6 rnrs/records/syntactic-6
rnrs/records/procedural-6)] rnrs/records/procedural-6)]
[(_ id) (begin [(_ id) (begin
(require id) (require id
(provide (all-from-out id)))] ;; Shift any run time exports to for-syntax:
(for-syntax (only-meta-in 0 id))
;; Shift any for-syntax exports for run time:
(for-template (only-meta-in 1 id)))
(provide (all-from-out id)
(for-template (all-from-out id))
(for-syntax (all-from-out id))))]
[(_ id ...) [(_ id ...)
(begin (re-export id) ...)])) (begin (re-export id) ...)]))
(re-export) (re-export)
;; Also need to export prelims for syntax, since there will
;; not be a for-syntax import when this module is imported:
(require (for-syntax r6rs/private/prelims))
(provide (for-syntax (all-from-out r6rs/private/prelims)))