gistfile1.txt

#lang scratch

(define (Alpha% %)
  (class %
    (super-new)
    (init callback)))

(define A%
  (class (Alpha% (Alpha% object%))
    (super-new)))

(define x (new A%
               [callback (λ (x) 5)]
               [callback (λ (x) 6)]))