From 778648a25882b46d868c8730c5da366fdf96d29a Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 10 Jul 2007 13:50:40 +0000
Subject: [PATCH] moved local into the define section

svn: r6885

original commit: 4ed3f9bb6c2dd958fdde59894f6d79e87826ae79
---
 collects/framework/private/main.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index b4ed1da5..862bf95d 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -165,7 +165,7 @@
   (let ([hash-table (make-hash-table)])
     (for-each (λ (x) 
                 (hash-table-put! hash-table x 'define))
-              '())
+              '(local))
     (for-each (λ (x) 
                 (hash-table-put! hash-table x 'begin))
               '(case-lambda
@@ -206,7 +206,7 @@
                  define-some do opt-lambda
                  send* with-method
                  define-record
-                 local catch shared
+                 catch shared
                  unit/sig unit/lang
                  with-handlers
                  interface