Bhasher/linfo2335-programming-paradigms
Bhasher
/
linfo2335-programming-paradigms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
project-2/step3.rkt
View File

@ -26,7 +26,7 @@
((eq? m 'info) (info)) ((eq? m 'info) (info))
((eq? m 'add) (add)) ((eq? m 'add) (add))
((eq? m 'sub) (sub)) ((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 self
) )
@ -61,6 +61,6 @@
(send p 'info) ; (point 4 6) (send p 'info) ; (point 4 6)
(send 'not-a-point 'info) ; should display "Inappropriate receiver object" (send 'not-a-point 'info) ; should display "Inappropriate receiver object"
(send p 'foo) ; should display "Message not understood" (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 'setx! 5)
(send p1 'getx) ; returns 5 (send p1 'getx) ; returns 5