.

original commit: 81c7b0299a7bb79a20177c5af99cad8a05a3a751
2002-03-22 22:58:17 +00:00 · 2002-03-22 22:58:17 +00:00 · 0efacd79b4
commit 0efacd79b4
parent 772a33bc5b
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/unitsig.ss
+++ b/collects/mzlib/unitsig.ss
@ -326,6 +326,7 @@
 		   (provide . flattened)))))]))))
  
  (define (unit/sig? x) (signed-unit? x))
+  (define (unit/sig->unit x) (signed-unit-unit x))

  (provide define-signature
 	   let-signature
@ -337,7 +338,7 @@
 	   verify-linkage-signature-match

 	   (struct signed-unit (unit imports exports))
-	   unit/sig?
+	   unit/sig? unit/sig->unit
 	   
 	   define-values/invoke-unit/sig
 	   namespace-variable-bind/invoke-unit/sig