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

svn: r17574 original commit: c8c66bfe7fd65f68aff28634694f675d2633f5c1
2010-01-08 18:52:57 +00:00 · 2010-01-08 18:52:57 +00:00 · bb3d45340d
commit bb3d45340d
parent 79eec9556f
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)