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

svn: r17574
2010-01-08 18:52:57 +00:00 · 2010-01-08 18:52:57 +00:00 · c8c66bfe7f
commit c8c66bfe7f
parent ea20ee160f
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/unit.ss
+++ b/collects/mzlib/unit.ss
@ -340,7 +340,8 @@
                       (λ (var ...)
                         (letrec-syntaxes+values
                             ([(sid ...) sbody] ...) ([(vid ...) vbody] ...)
-                           ctc ...))
+                           ctc ...
+                           (void)))
                       (values)))))))
          (else
           (syntax-case (car sig-exprs) (define-values define-syntaxes contracted)