From 3abd9510ac9ee7ff613d5fa2adf8bc537e3e7ea2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 19 May 1999 19:36:46 +0000
Subject: [PATCH] .

original commit: 4542ec9421e720ec245d675e2ba5357c92071334
---
 collects/mzlib/awk.ss     |  7 +++++--
 collects/mzlib/cmdline.ss |  6 ++++--
 collects/mzlib/compat.ss  | 10 +++++++---
 collects/mzlib/date.ss    | 11 ++++++-----
 collects/mzlib/file.ss    | 12 ++++++++----
 collects/mzlib/inflate.ss |  6 +++++-
 collects/mzlib/match.ss   | 10 +++++++---
 collects/mzlib/math.ss    |  6 +++++-
 collects/mzlib/pretty.ss  |  7 ++++++-
 collects/mzlib/shared.ss  | 11 +++++++----
 collects/mzlib/string.ss  |  6 +++++-
 collects/mzlib/thread.ss  |  7 ++++---
 collects/mzlib/trace.ss   | 21 ++++++++++++---------
 collects/mzlib/transcr.ss |  7 +++++--
 collects/mzlib/unitsig.ss |  2 --
 15 files changed, 86 insertions(+), 43 deletions(-)
 delete mode 100644 collects/mzlib/unitsig.ss

diff --git a/collects/mzlib/awk.ss b/collects/mzlib/awk.ss
index c271e06..7c770c3 100644
--- a/collects/mzlib/awk.ss
+++ b/collects/mzlib/awk.ss
@@ -1,6 +1,9 @@
 
-(require-library "refer.ss")
+(begin-elaboration-time 
+ (require-library "invoke.ss"))
 
-(begin-elaboration-time (invoke-open-unit (require-relative-library "awkr.ss")))
+(begin-elaboration-time 
+ (define-values/invoke-unit (awk) 
+   (require-relative-library "awkr.ss")))
 
 (define-macro awk awk)
diff --git a/collects/mzlib/cmdline.ss b/collects/mzlib/cmdline.ss
index e961824..ee06bdd 100644
--- a/collects/mzlib/cmdline.ss
+++ b/collects/mzlib/cmdline.ss
@@ -1,7 +1,9 @@
 
-
 (require-library "cmdlineu.ss")
 
-(invoke-open-unit/sig mzlib:command-line@ #f)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:command-line^ mzlib:command-line@ #f)
 
 (require-library "cmdlinem.ss")
diff --git a/collects/mzlib/compat.ss b/collects/mzlib/compat.ss
index 472cffa..a4383f5 100644
--- a/collects/mzlib/compat.ss
+++ b/collects/mzlib/compat.ss
@@ -2,6 +2,10 @@
 (require-library "compatu.ss")
 (require-library "functio.ss")
 
-(invoke-open-unit/sig mzlib:compat@
-		      #f
-		      mzlib:function^)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:compat^
+  mzlib:compat@
+  #f
+  mzlib:function^)
diff --git a/collects/mzlib/date.ss b/collects/mzlib/date.ss
index a32ebbf..07589a5 100644
--- a/collects/mzlib/date.ss
+++ b/collects/mzlib/date.ss
@@ -2,9 +2,10 @@
 (require-library "dateu.ss")
 (require-library "functio.ss")
 
-(invoke-open-unit/sig mzlib:date@
-		      #f
-		      mzlib:function^)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
 
-
- 
+(define-values/invoke-unit/sig mzlib:date^
+  mzlib:date@
+  #f
+  mzlib:function^)
diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss
index 1593b2f..d2e3b63 100644
--- a/collects/mzlib/file.ss
+++ b/collects/mzlib/file.ss
@@ -3,7 +3,11 @@
 (require-library "functio.ss")
 (require-library "string.ss")
 
-(invoke-open-unit/sig mzlib:file@
-		      #f
-		      mzlib:string^
-		      mzlib:function^)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:file^
+  mzlib:file@
+  #f
+  mzlib:string^
+  mzlib:function^)
diff --git a/collects/mzlib/inflate.ss b/collects/mzlib/inflate.ss
index b627b5b..916065e 100644
--- a/collects/mzlib/inflate.ss
+++ b/collects/mzlib/inflate.ss
@@ -2,6 +2,10 @@
 
 (require-library "inflateu.ss")
 
-(invoke-open-unit/sig mzlib:inflate@ #f)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:inflate^
+  mzlib:inflate@)
 
  
diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss
index f3e1cb2..c1ca055 100644
--- a/collects/mzlib/match.ss
+++ b/collects/mzlib/match.ss
@@ -1,9 +1,13 @@
 
-(require-library "refer.ss")
+(begin-elaboration-time 
+ (require-library "invoke.ss"))
 
 (begin-elaboration-time
- (invoke-open-unit
-  (require-library "matchr.ss")))
+ (define-values/invoke-unit (match:set-error 
+			     match:set-error-control match:error-control-param
+			     match:error match match-lambda match-lambda* 
+			     match-letrec match-let match-let*)
+   (require-library "matchr.ss")))
 
 (define-macro match match)
 (define-macro match-lambda match-lambda)
diff --git a/collects/mzlib/math.ss b/collects/mzlib/math.ss
index 75c3f2e..3c2deca 100644
--- a/collects/mzlib/math.ss
+++ b/collects/mzlib/math.ss
@@ -1,4 +1,8 @@
 
 (require-library "mathu.ss")
 
-(invoke-open-unit/sig mzlib:math@ #f)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:math^
+  mzlib:math@)
diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index 7574216..2c4e5e5 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -1,5 +1,10 @@
 
 (require-library "prettyu.ss")
 
-(invoke-open-unit/sig mzlib:pretty-print@ #f)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:pretty-print^
+  mzlib:pretty-print@)
+
 
diff --git a/collects/mzlib/shared.ss b/collects/mzlib/shared.ss
index e5bf0aa..aaad1da 100644
--- a/collects/mzlib/shared.ss
+++ b/collects/mzlib/shared.ss
@@ -1,10 +1,13 @@
 
-(require-library "refer.ss")
-(require-library "functios.ss")
+(begin-elaboration-time 
+ (require-library "functios.ss"))
+
+(begin-elaboration-time 
+ (require-library "invoke.ss"))
 
 (begin-elaboration-time
- (invoke-open-unit
-  (require-library "sharedr.ss")))
+ (define-values/invoke-unit (shared)
+   (require-library "sharedr.ss")))
 
 (define-macro shared shared)
 
diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss
index 78dfb34..c7c587e 100644
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@@ -1,5 +1,9 @@
 
 (require-library "stringu.ss")
 
-(invoke-open-unit/sig mzlib:string@ #f)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:string^
+  mzlib:string@)
 
diff --git a/collects/mzlib/thread.ss b/collects/mzlib/thread.ss
index 5c7f93e..3197105 100644
--- a/collects/mzlib/thread.ss
+++ b/collects/mzlib/thread.ss
@@ -1,7 +1,8 @@
 
-
 (require-library "threadu.ss")
 
-(invoke-open-unit/sig mzlib:thread@ #f)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
 
- 
+(define-values/invoke-unit/sig mzlib:thread^
+  mzlib:thread@)
diff --git a/collects/mzlib/trace.ss b/collects/mzlib/trace.ss
index 34aaddc..23de2c6 100644
--- a/collects/mzlib/trace.ss
+++ b/collects/mzlib/trace.ss
@@ -244,18 +244,21 @@
 
 )))
 
+(begin-elaboration-time 
+ (require-library "invoke.ss"))
+
 (begin-elaboration-time
- (invoke-open-unit/sig
-  (compound-unit/sig
-   (import)
+ (define-values/invoke-unit/sig mzlib:trace^
+   (compound-unit/sig
+    (import)
     (link
-      (PRETTY : mzlib:pretty-print^
-	(mzlib:pretty-print@))
-      (TRACE : mzlib:trace^
-	(mzlib:trace@ PRETTY)))
+     (PRETTY : mzlib:pretty-print^
+	     (mzlib:pretty-print@))
+     (TRACE : mzlib:trace^
+	    (mzlib:trace@ PRETTY)))
     (export
-      (open TRACE)))
-  #f))
+     (open TRACE)))
+   #f))
 
 (define-macro trace trace)
 (define-macro untrace untrace)
diff --git a/collects/mzlib/transcr.ss b/collects/mzlib/transcr.ss
index f671feb..94061ab 100644
--- a/collects/mzlib/transcr.ss
+++ b/collects/mzlib/transcr.ss
@@ -1,5 +1,8 @@
 
-
 (require-library "transcru.ss")
 
-(invoke-open-unit/sig mzlib:transcript@)
+(begin-elaboration-time
+ (require-library "invoke.ss"))
+
+(define-values/invoke-unit/sig mzlib:transcript^
+  mzlib:transcript@)
diff --git a/collects/mzlib/unitsig.ss b/collects/mzlib/unitsig.ss
deleted file mode 100644
index 11676a6..0000000
--- a/collects/mzlib/unitsig.ss
+++ /dev/null
@@ -1,2 +0,0 @@
-
-;; Obsolete