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

provide open*-package

Browse Source 
svn: r12586

original commit: b7addbab82ad04384f2c381b098857b9e745efc6
This commit is contained in:
Matthew Flatt 2008-11-25 03:13:06 +00:00
parent 985cd6e47d
commit 7134eca95d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/package.ss
View File

@ -9,7 +9,8 @@
define*-syntax define*-syntax
define*-syntaxes define*-syntaxes
define-package define-package
open-package) open-package
open*-package)
(define-for-syntax (do-define-* stx define-values-id) (define-for-syntax (do-define-* stx define-values-id)
(syntax-case stx () (syntax-case stx ()
@ -230,7 +231,8 @@
[(begin . rest) [(begin . rest)
(loop (append (syntax->list #'rest) (cdr exprs)) (loop (append (syntax->list #'rest) (cdr exprs))
rev-forms rev-forms
defined)] defined
def-ctxes)]
[(def (id ...) rhs) [(def (id ...) rhs)
(and (or (free-identifier=? #'def #'define-syntaxes) (and (or (free-identifier=? #'def #'define-syntaxes)
(free-identifier=? #'def #'define*-syntaxes)) (free-identifier=? #'def #'define*-syntaxes))