From 7134eca95dc1f96dc805885daeb8b8cd63b83235 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 25 Nov 2008 03:13:06 +0000
Subject: [PATCH] provide open*-package

svn: r12586

original commit: b7addbab82ad04384f2c381b098857b9e745efc6
---
 collects/scheme/package.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/scheme/package.ss b/collects/scheme/package.ss
index c01128d..0aabb74 100644
--- 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))