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