From ae6ef049309a013d75d0eec283f094b174863a0d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 16 Mar 2001 18:48:49 +0000
Subject: [PATCH] .

original commit: 3d8c5435ba20949d71d2e877e8f58938f58ac47f
---
 collects/mzlib/class.ss         |  4 +-
 collects/tests/mzscheme/unit.ss | 65 ++++++++++++++++++---------------
 2 files changed, 38 insertions(+), 31 deletions(-)

diff --git a/collects/mzlib/class.ss b/collects/mzlib/class.ss
index 170648a..3bd1980 100644
--- a/collects/mzlib/class.ss
+++ b/collects/mzlib/class.ss
@@ -1410,10 +1410,10 @@
 	      (syntax name)))
 	   (if (stx-list? (syntax args))
 	       (syntax (let ([this obj])
-			 ((find-method obj 'name) obj . args)))
+			 ((find-method this 'name) this . args)))
 	       (with-syntax ([args (flatten-args (syntax args))])
 		 (syntax (let ([this obj])
-			   (apply (find-method obj 'name) obj . args))))))])))
+			   (apply (find-method this 'name) this . args))))))])))
 
   (define-syntax send*
     (lambda (stx)
diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index 31b05b3..c4c9c06 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -322,29 +322,36 @@
 
 (define u@
   (unit (import x) (export)  
-	(class* object% () () 
-		(public (y x))
-		(sequence (super-init)))))
+	(class* object% ()
+		(public y)
+		(define y (lambda () x))
+		(super-make-object))))
 (define v (invoke-unit u@ car))
 (test #t class? v)
 (define w (make-object v))
-(test car 'ivar (ivar w y))
+(test car 'ivar (send w y))
 
 (define c%
-  (class* object% () (x)        
-	  (public (z (unit (import) (export) x)))
-	  (sequence (super-init))))
-(define u (ivar (make-object c% car) z))
+  (class* object% ()
+    (init x)
+    (define -x x)
+    (public z)
+    (define (z) (unit (import) (export) -x))
+    (super-make-object)))
+(define u (send (make-object c% car) z))
 (test #t unit? u)
 (test car 'invoke (invoke-unit u))
 
-
 (define c%
-  (class* object% () (x) (public (y x))
-	  (public (z (unit (import) (export) y)))
-	  (sequence (super-init))))
+  (class* object% () 
+	  (init x) 
+	  (define -x x)
+	  (public y z)
+	  (define (y) -x)
+	  (define (z) (unit (import) (export) (y)))
+	  (super-make-object)))
 (define u (make-object c% 3))
-(define u2 (ivar u z))
+(define u2 (send u z))
 (test #t unit? u2)
 (test 3 'invoke (invoke-unit u2))
 
@@ -404,10 +411,9 @@
 		 (import x)
 		 (export)
 		 (class object% ()
-		   (public
+		   (field
 		     [x 10])
-		   (sequence
-		     (set! x 5)))))
+		   (set! x 5))))
 (syntax-test #'(let ([x 10])
 		(unit 
 		  (import x)
@@ -478,28 +484,29 @@
 	      b)
 	    (send
 	     (make-object
-	      (class object% ()
-		(public
-		  [a 10]
-		  [tester
-		   (lambda () (list a b c))])
-		(sequence (super-init))))
+	      (class object%
+		(field [a 10])
+		(public tester)
+		(define tester
+		  (lambda () (list a b c)))
+		(super-make-object)))
 	     tester)
 	    (send
 	     (make-object
-	      (class object% ()
-		(public
-		  [a 10]
-		  [b 12]
-		  [tester
+	      (class object%
+		(field
+		 [a 10]
+		 [b 12])
+		(public tester)
+		(define tester
 		   (lambda () 
 		     (invoke-unit
 		      (unit 
 			(import)
 			(export)
 			(define a 'cl-unit-a)
-			(list a b c))))])
-		(sequence (super-init))))
+			(list a b c)))))
+		(super-make-object)))
 	     tester))))))
 
 ; Not ok if defining an imported name, but error should be about