Step 3a: fix arguments
This commit is contained in:
parent
9f09eaeb20
commit
82f33c2a8c
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue