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