Update step_3b.rkt : updated send changes

step_3b.rkt

@@ -92,12 +92,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") )
- )
+  )
 
 
 ; Sample code illustrating the execution of the step