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

add `prop:liberal-define-context'

Browse Source 
original commit: 39a96dd699a7bb287668cf97d76698fcbb3df1aa
This commit is contained in:
Matthew Flatt 2011-08-07 13:16:32 -06:00
parent 88cec89c03
commit 4138a2dc50
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/racket/package.rkt
View File

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