moved local into the define section

svn: r6885 original commit: 4ed3f9bb6c2dd958fdde59894f6d79e87826ae79
2007-07-10 13:50:40 +00:00 · 2007-07-10 13:50:40 +00:00 · 778648a258
commit 778648a258
parent c2c45c43c5
1 changed files with 2 additions and 2 deletions
--- 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