From 4138a2dc5001c4792569f9c65e18bbfcffb3c186 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 7 Aug 2011 13:16:32 -0600
Subject: [PATCH] add `prop:liberal-define-context'

original commit: 39a96dd699a7bb287668cf97d76698fcbb3df1aa
---
 collects/racket/package.rkt | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/collects/racket/package.rkt b/collects/racket/package.rkt
index 3052588..73943bb 100644
--- a/collects/racket/package.rkt
+++ b/collects/racket/package.rkt
@@ -4,7 +4,8 @@
                      syntax/kerncase
                      syntax/boundmap
                      syntax/define
-                     syntax/flatten-begin))
+                     syntax/flatten-begin
+                     syntax/context))
 
 (provide define-package
          package-begin
@@ -141,11 +142,7 @@
                                          stx
                                          exports)])])
          (let* ([def-ctx (syntax-local-make-definition-context)]
-                [ctx (cons (gensym 'intdef)
-                           (let ([orig-ctx (syntax-local-context)])
-                             (if (pair? orig-ctx)
-                                 orig-ctx
-                                 null)))]
+                [ctx (generate-expand-context #t)]
                 [pre-package-id (lambda (id def-ctxes)
                                   (identifier-remove-from-definition-context 
                                    id