From 08c624d49f5962a3d2d7997616039edcf9c54139 Mon Sep 17 00:00:00 2001
From: Nicolas Verbois <nicolas.verbois@student.uclouvain.be>
Date: Mon, 28 Mar 2022 14:22:59 +0000
Subject: [PATCH] Replace step_1.rkt

---
 step_1.rkt | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/step_1.rkt b/step_1.rkt
index b5663f7..a84f91a 100644
--- a/step_1.rkt
+++ b/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))
-- 
GitLab