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

Need to handle what happens when there's no contracts to speak of.

Browse Source 
svn: r17574

original commit: c8c66bfe7fd65f68aff28634694f675d2633f5c1
This commit is contained in:
Stevie Strickland 2010-01-08 18:52:57 +00:00
parent 79eec9556f
commit bb3d45340d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mzlib/unit.ss
View File

@ -340,7 +340,8 @@
(λ (var ...) (λ (var ...)
(letrec-syntaxes+values (letrec-syntaxes+values
([(sid ...) sbody] ...) ([(vid ...) vbody] ...) ([(sid ...) sbody] ...) ([(vid ...) vbody] ...)
ctc ...)) ctc ...
(void)))
(values))))))) (values)))))))
(else (else
(syntax-case (car sig-exprs) (define-values define-syntaxes contracted) (syntax-case (car sig-exprs) (define-values define-syntaxes contracted)