.

original commit: da1c5010f43784d83f03f570c10636676bc49b3a
2001-09-17 15:03:05 +00:00 · 2001-09-17 15:03:05 +00:00 · 4744c502e5
commit 4744c502e5
parent a5beec6de2
1 changed files with 8 additions and 1 deletions
--- 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: