From 83ff7d7e624f4b2549904dd1691585c77f4dab64 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Fri, 5 Dec 2008 17:55:47 +0000
Subject: [PATCH] Now to move the contract info appropriately into sigs from
 signatures.

svn: r12712

original commit: beb5f195300b0db3dda7c4f8273563ecaeba65f0
---
 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 8a2d829..48ba229 100644
--- a/collects/mzlib/unit.ss
+++ b/collects/mzlib/unit.ss
@@ -123,7 +123,8 @@
   (define-for-syntax (build-val+macro-defs sig)
     (with-syntax ([(((int-ivar . ext-ivar) ...)
                     ((((int-vid . ext-vid) ...) . vbody) ...)
-                    ((((int-sid . ext-sid) ...) . sbody) ...))
+                    ((((int-sid . ext-sid) ...) . sbody) ...)
+                    (((int-cid . ext-cid) . cbody) ...))
                    (map-sig (lambda (x) x)
                             (make-syntax-introducer)
                             sig)])