From bf45f699b1bec6f9f57fbaca0556e33f8cbb198c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 28 Feb 2005 22:15:43 +0000
Subject: [PATCH] .

original commit: 19fa3853ce935c2e683bbd3fec9c4f9fc19c994b
---
 collects/mzlib/unitsig.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/unitsig.ss b/collects/mzlib/unitsig.ss
index d245ecb..4fff0b4 100644
--- a/collects/mzlib/unitsig.ss
+++ b/collects/mzlib/unitsig.ss
@@ -143,7 +143,7 @@
 		 (list unt)
 		 (quote ((#() . #())))
 		 (quote (exploded-sigs)))
-		(invoke-unit (signed-unit-unit u)
+		(invoke-unit (signed-unit-unit unt)
 			     . flat-sigs)))))])))
   
   (define-syntax unit->unit/sig