From 4744c502e5b95f841a723ba4b442c3840a503e94 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 17 Sep 2001 15:03:05 +0000
Subject: [PATCH] .

original commit: da1c5010f43784d83f03f570c10636676bc49b3a
---
 collects/mzlib/unitsig.ss | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/unitsig.ss b/collects/mzlib/unitsig.ss
index c134722..653126a 100644
--- a/collects/mzlib/unitsig.ss
+++ b/collects/mzlib/unitsig.ss
@@ -233,7 +233,14 @@
 	[(_ name)
 	 (identifier? (syntax name))
 	 (let ([sig (get-sig 'signature->symbols stx #f (syntax name))])
-	   (with-syntax ([e (explode-sig sig #f)])
+	   (with-syntax ([e (let cleanup ([p (explode-sig sig #f)])
+			      ;; Strip struct info:
+			      (list->vector 
+			       (map (lambda (i)
+				      (if (symbol? i)
+					  i
+					  (cons (car i) (cleanup (cdr i)))))
+				    (vector->list (car p)))))])
 	     (syntax 'e)))])))
 
   ;; Internal: