From 240fa9dc9838a7f903ddb1caaf7bee971ce193c5 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 3 May 2009 23:49:22 +0000
Subject: [PATCH] fix define after define* in package; doc repairs

svn: r14701

original commit: 16e483033c9278d2bd386a3d419d4caedc4a1a77
---
 collects/scheme/package.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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