provide open*-package

svn: r12586 original commit: b7addbab82ad04384f2c381b098857b9e745efc6
2008-11-25 03:13:06 +00:00 · 2008-11-25 03:13:06 +00:00 · 7134eca95d
commit 7134eca95d
parent 985cd6e47d
1 changed files with 4 additions and 2 deletions
--- a/collects/scheme/package.ss
+++ b/collects/scheme/package.ss
@ -9,7 +9,8 @@
         define*-syntax
         define*-syntaxes
         define-package
-         open-package)
+         open-package
+         open*-package)

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