Replace step_1.rkt

step_1.rkt

@@ -3,8 +3,8 @@
 (define (point x y)
   (define (setx value)
     (set! x value))
-  (define (add point)
-    (list (+ x (point 'getx)) (+ y (point 'gety))))
+  (define (add p)
+    (point (+ x (p 'getx)) (+ y (p 'gety))))
   (define (self m)
     (cond ((eq? m 'getx) x)
           ((eq? m 'gety) y)
@@ -12,7 +12,7 @@
           ((eq? m 'info) (list (self 'type) (self 'getx) (self 'gety)) )
           ((eq? m 'setx!) setx )
           ((eq? m 'add) add)
-          (else (display "ERROR"))))
+          (else (display "Message not understood")))) ; error ? 
   self)
 
 (display "coucou")
@@ -31,3 +31,5 @@
 (display (p1 'getx))
 (newline)
 (display ((p1 'add) p2))
+(newline)
+(display (p1 'foo))