(define (get-method object message)
  (object message))

(define method? procedure?)

(define (send object message . args)
  (let ((method (get-method object message)))
    (if (method? method)
	(apply method (cons object args))
	(error "No method" message))))