0. #lang racket
1.  
2. (define foo% (class object%
3.                    (super-new)
4.                    (define/public plus-one (curry + 1))))

=>

eval:2:0: class: bad form for method definition

at: (curry + 1)

in: (class object% (super-new) (define/public plus-one

(curry + 1)))