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

Fix bug introduced by last commit.

Browse Source 
svn: r18385
This commit is contained in:
Stevie Strickland 2010-02-27 18:04:47 +00:00
parent 9f17622e1a
commit 54b81b3bdb
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/contract/regions.ss
View File

@ -380,8 +380,7 @@
(syntax-case stx (set!)
[(set! i arg)
(quasisyntax/loc stx
(set! #,id
(contract ctc arg neg pos (quote id) (quote-syntax id))))]
(set! id (contract ctc arg neg pos (quote id) (quote-syntax id))))]
[(f arg ...)
(quasisyntax/loc stx
((contract ctc id pos neg (quote id) (quote-syntax id))