Port render-test-list.scm and helpers to use new-style units.

svn: r5035

collects/mzlib/private/match/ddk-handlers.ss

@@ -8,14 +8,14 @@
            "render-helpers.ss"
            "render-sigs.ss"
            (lib "stx.ss" "syntax")
-           (lib "unitsig.ss"))
+           (lib "unit.ss"))
   
   (require-for-template mzscheme
 			"test-no-order.ss")
   
-  (define ddk-handlers@ 
-    (unit/sig ddk-handlers^ (import getbindings^ render-test-list^)
-      
+  (define-unit ddk-handlers@ 
+    (import getbindings^ render-test-list^)
+    (export ddk-handlers^)
     
     ;;!(function handle-end-ddk-list
     ;;          (form (handle-end-ddk-list ae kf ks pat
@@ -538,6 +538,6 @@
                                  bv)))))))))
     
     ;; end of ddk-handlers@
-      ))
+    )
   
   )

collects/mzlib/private/match/getbindings.ss

@@ -5,12 +5,13 @@
            "update-binding-counts.scm"           
            "render-helpers.ss"
            "render-sigs.ss"
-           (lib "unitsig.ss"))
+           (lib "unit.ss"))
     
   (require-for-template mzscheme)
    
-  (define getbindings@
-    (unit/sig getbindings^ (import render-test-list^)
+  (define-unit getbindings@
+    (import render-test-list^)
+    (export getbindings^)
     
     ;;!(function next-outer
     ;;          (form (next-outer p ae sf bv let-bound kf ks syntax bool)
@@ -123,5 +124,5 @@
          cert)))
     
     ;; end getbindings@
-      ))
+    )
   )

collects/mzlib/private/match/render-sigs.ss

@@ -1,5 +1,5 @@
 (module render-sigs mzscheme
-  (require (lib "unitsig.ss"))
+  (require (lib "unit.ss"))
   
   (provide (all-defined))
   

collects/mzlib/private/match/render-test-list-impl.ss

@@ -14,7 +14,7 @@
            "render-helpers.ss")
   
   (require "render-sigs.ss"
-           (lib "unitsig.ss"))
+           (lib "unit.ss"))
   
   (require-for-syntax "match-helper.ss"
                       "match-expander-struct.ss"
@@ -30,8 +30,9 @@
   
   
   
-  (define render-test-list@
-    (unit/sig render-test-list^ (import ddk-handlers^ getbindings^)
+  (define-unit render-test-list@
+    (import ddk-handlers^ getbindings^)
+    (export render-test-list^) 
     
     ;; some convenient syntax for make-reg-test and make-shape-test
     (define make-test-gen
@@ -606,6 +607,6 @@
           "syntax error in pattern")]))
     
     ;; end of render-test-list@
-      ))
+    )
   
   )

collects/mzlib/private/match/render-test-list.scm

@@ -7,18 +7,13 @@
            "render-test-list-impl.ss"
            "getbindings.ss"
            "ddk-handlers.ss"
-           (lib "unitsig.ss"))
+           (lib "unit.ss"))
   
-  (define rtl@ 
-    (compound-unit/sig
+  (define-compound-unit/infer rtl@
     (import)
-      (link (RTL : render-test-list^ (render-test-list@ DDK GET))
-            (GET : getbindings^ (getbindings@ RTL))
-            (DDK : ddk-handlers^ (ddk-handlers@ GET RTL))
-            )
-      (export (var (RTL render-test-list)))
-      ))
+    (export render-test-list^)
+    (link render-test-list@ getbindings@ ddk-handlers@))
   
-  (define-values/invoke-unit/sig render-test-list^ rtl@)
+  (define-values/invoke-unit/infer rtl@)
 
   )