OOP is currying

Thinks about it :inheritance, polymorphism, virtual functions, code+data.
The classes constructed are basically curried functions+data.

OOP done properly:
(define (cat name)
(lambda (op)
(cond ((eq? op 'getName) name)
((eq? op 'meow) "meow"))))

(define my-kitty (cat "Hanekawa"))
(display (my-kitty 'getName))
(display (my-kitty 'meow))