From 93f48397ab6ad05f328c0ed52db3afc21e329f4f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Jun 2002 14:32:55 +0000
Subject: [PATCH] .

original commit: e9d213313f9126a07312596cc07b52e1db78c96a
---
 collects/mzlib/compat.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/compat.ss b/collects/mzlib/compat.ss
index fe159fc..60ed01b 100644
--- a/collects/mzlib/compat.ss
+++ b/collects/mzlib/compat.ss
@@ -109,8 +109,8 @@
 				(append fields init-fields)))])
 	     (syntax
 	      (define-values (struct: make- ? gs ...)
-		(let-values ([(struct: make- ? gs ...)
-			      (struct sname (field ... init-field ...))])
+		(let ()
+		  (define-struct sname (field ... init-field ...))
 		  (values struct: 
 			  (let ([make- (lambda (field ...)
 					 (make- field ...