Step 3a: fix arguments

This commit is contained in:
Brieuc Dubois 2024-04-25 14:30:35 +02:00
parent 9f09eaeb20
commit 82f33c2a8c
1 changed files with 2 additions and 2 deletions

View File

@ -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