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

fix define after define* in package; doc repairs

Browse Source 
svn: r14701

original commit: 16e483033c9278d2bd386a3d419d4caedc4a1a77
This commit is contained in:
Matthew Flatt 2009-05-03 23:49:22 +00:00
parent 872f83b18d
commit 240fa9dc98
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scheme/package.ss
View File

@ -1,5 +1,6 @@
#lang scheme/base #lang scheme/base
(require (for-syntax scheme/base (require (for-syntax scheme/base
scheme/list
syntax/kerncase syntax/kerncase
syntax/boundmap syntax/boundmap
syntax/define syntax/define
@ -312,7 +313,7 @@
[ids (syntax->list #'(id ...))]) [ids (syntax->list #'(id ...))])
(let* ([def-ctx (if star? (let* ([def-ctx (if star?
(syntax-local-make-definition-context (car def-ctxes)) (syntax-local-make-definition-context (car def-ctxes))
(car def-ctxes))] (last def-ctxes))]
[ids (if star? [ids (if star?
(map (add-package-context (list def-ctx)) ids) (map (add-package-context (list def-ctx)) ids)
ids)]) ids)])
@ -330,7 +331,7 @@
[ids (syntax->list #'(id ...))]) [ids (syntax->list #'(id ...))])
(let* ([def-ctx (if star? (let* ([def-ctx (if star?
(syntax-local-make-definition-context (car def-ctxes)) (syntax-local-make-definition-context (car def-ctxes))
(car def-ctxes))] (last def-ctxes))]
[ids (if star? [ids (if star?
(map (add-package-context (list def-ctx)) ids) (map (add-package-context (list def-ctx)) ids)
ids)]) ids)])