suzanne.soy/racket
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
This commit is contained in:
Stevie Strickland 2010-01-08 18:52:57 +00:00
parent ea20ee160f
commit c8c66bfe7f
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)