From 82f33c2a8c4a46e7001ad9b78752b51beca5f191 Mon Sep 17 00:00:00 2001 From: Brieuc Dubois Date: Thu, 25 Apr 2024 14:30:35 +0200 Subject: [PATCH] Step 3a: fix arguments --- project-2/step3.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/project-2/step3.rkt b/project-2/step3.rkt index 3e28eb8..5492832 100644 --- a/project-2/step3.rkt +++ b/project-2/step3.rkt @@ -26,7 +26,7 @@ ((eq? m 'info) (info)) ((eq? m 'add) (add)) ((eq? m 'sub) (sub)) - (else (lambda () (display (string-append "Message not understood: " (symbol->string m) "\n")))))) + (else (lambda args (display (string-append "Message not understood: " (symbol->string m) "\n")))))) self ) @@ -61,6 +61,6 @@ (send p 'info) ; (point 4 6) (send 'not-a-point 'info) ; should display "Inappropriate receiver object" (send p 'foo) ; should display "Message not understood" -;(send p 'bar 2) ; should display "Message not understood" +(send p 'bar 2) ; should display "Message not understood" (send p1 'setx! 5) (send p1 'getx) ; returns 5