From bb3d45340d237d0d112b0b3463aa88c4487a3d8f Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 8 Jan 2010 18:52:57 +0000
Subject: [PATCH] Need to handle what happens when there's no contracts to
 speak of.

svn: r17574

original commit: c8c66bfe7fd65f68aff28634694f675d2633f5c1
---
 collects/mzlib/unit.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.ss
index 373da47..8375b87 100644
--- 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)