Update step_4.rkt : updated send changes

step_4.rkt

@@ -42,7 +42,7 @@
   (define (gettype) 'color-point)
   (define (getinfo) (append (send super 'info) (list (getcolor))))
   (define (add cp)
-    (color-point (+ (super 'getx) (cp 'getx)) (+ (super 'gety) (cp 'gety)) (getcolor)))
+    (new color-point (+ (super 'getx) (cp 'getx)) (+ (super 'gety) (cp 'gety)) (getcolor)))
   (define (self m)
     (cond ((eq? m 'get-color) getcolor)
           ((eq? m 'info) getinfo)
@@ -68,7 +68,7 @@
   (define (setx value)(set! x value))
   (define (sety value)(set! y value))
   (define (add p)
-    (point (+ (getx) (send p 'getx)) (+ (gety) (send p 'gety))))
+    (new point (+ (getx) (send p 'getx)) (+ (gety) (send p 'gety))))
   (define (self m)
     (cond ((eq? m 'getx) getx)
           ((eq? m 'gety) gety)
@@ -85,14 +85,17 @@
 
 (define (send p m . args)
   (if (procedure? p)
+      
       (cond
         ((null? args) ((p m)))
-        
-        (else 
-          ((p m) (car args))
-        ))
+        (else
+         (if (procedure? (p m))
+             ((p m) (car args))
+             )
+         ) 
+        )
       (display "Inappropriate receiver object") )
- )
+  )
 
 
 ; The new construtctor procedure.