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

moved local into the define section

Browse Source 
svn: r6885

original commit: 4ed3f9bb6c2dd958fdde59894f6d79e87826ae79
This commit is contained in:
Robby Findler 2007-07-10 13:50:40 +00:00
parent c2c45c43c5
commit 778648a258
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/framework/private/main.ss
View File

@ -165,7 +165,7 @@
(let ([hash-table (make-hash-table)]) (let ([hash-table (make-hash-table)])
(for-each (λ (x) (for-each (λ (x)
(hash-table-put! hash-table x 'define)) (hash-table-put! hash-table x 'define))
'()) '(local))
(for-each (λ (x) (for-each (λ (x)
(hash-table-put! hash-table x 'begin)) (hash-table-put! hash-table x 'begin))
'(case-lambda '(case-lambda
@ -206,7 +206,7 @@
define-some do opt-lambda define-some do opt-lambda
send* with-method send* with-method
define-record define-record
local catch shared catch shared
unit/sig unit/lang unit/sig unit/lang
with-handlers with-handlers
interface interface