From 85ebc455265574d7511fbbb9dba132c2b34e2928 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 19 Jan 1999 19:20:20 +0000
Subject: [PATCH] .

original commit: d7007424cc76e178b180319027077d53a885aa86
---
 collects/tests/mzscheme/pconvert.ss |  4 ++--
 collects/tests/mzscheme/unit.ss     | 20 ++++++++++++--------
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/collects/tests/mzscheme/pconvert.ss b/collects/tests/mzscheme/pconvert.ss
index f977c86..7f51608 100644
--- a/collects/tests/mzscheme/pconvert.ss
+++ b/collects/tests/mzscheme/pconvert.ss
@@ -11,9 +11,9 @@
 
 (define (xl) 1)
 (define (xu) (unit (import) (export)))
-(define (xc) (class '() ()))
+(define (xc) (class object% () (sequence (super-init))))
 
-(begin
+(init
   (define-struct test (value constructor-sexp
 			     whole/frac-constructor-sexp
 			     shared-constructor-sexp
diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index e828beb..e490dce 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -380,25 +380,29 @@
 
 ; Units and objects combined:
 
-(define u@ 
+(define u@
   (unit (import x) (export)  
-	(class* () () () (public (y x)))))
+	(class* object% () () 
+		(public (y x))
+		(sequence (super-init)))))
 (define v (invoke-unit u@ car))
 (test #t class? v)
 (define w (make-object v))
 (test car 'ivar (ivar w y))
 
-(define c% 
-  (class* () () (x)        
-	  (public (z (unit (import) (export) x)))))
+(define c%
+  (class* object% () (x)        
+	  (public (z (unit (import) (export) x)))
+	  (sequence (super-init))))
 (define u (ivar (make-object c% car) z))
 (test #t unit? u)
 (test car 'invoke (invoke-unit u))
 
 
-(define c% 
-  (class* () () (x) (public (y x))
-	  (public (z (unit (import) (export) y)))))
+(define c%
+  (class* object% () (x) (public (y x))
+	  (public (z (unit (import) (export) y)))
+	  (sequence (super-init))))
 (define u (make-object c% 3))
 (define u2 (ivar u z))
 (test #t unit? u2)