From 0662da7a3b0786354e539ad3c37b07c77a230a61 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Nov 2009 02:12:27 +0000 Subject: [PATCH] another syntax hack to fix 'scheme/package'; other test corrections svn: r17075 original commit: f03ab78c401e603bc5e950a29fec3431f9745ef1 --- collects/scheme/package.ss | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/collects/scheme/package.ss b/collects/scheme/package.ss index 167c2c4..3052588 100644 --- a/collects/scheme/package.ss +++ b/collects/scheme/package.ss @@ -317,9 +317,11 @@ (let* ([def-ctx (if star? (syntax-local-make-definition-context (car def-ctxes)) (last def-ctxes))] - [ids (if star? - (map (add-package-context (list def-ctx)) ids) - ids)]) + [ids (map + (lambda (id) (syntax-property id 'unshadowable #t)) + (if star? + (map (add-package-context (list def-ctx)) ids) + ids))]) (syntax-local-bind-syntaxes ids #'rhs def-ctx) (register-bindings! ids) (loop (cdr exprs) @@ -335,9 +337,11 @@ (let* ([def-ctx (if star? (syntax-local-make-definition-context (car def-ctxes)) (last def-ctxes))] - [ids (if star? - (map (add-package-context (list def-ctx)) ids) - ids)]) + [ids (map + (lambda (id) (syntax-property id 'unshadowable #t)) + (if star? + (map (add-package-context (list def-ctx)) ids) + ids))]) (syntax-local-bind-syntaxes ids #f def-ctx) (register-bindings! ids) (loop (cdr exprs)