blob: 39a93a16004a6f58affff824485a3ffd29799a6d [file] [log] [blame]
(define bar-class%
(class object%
(field (info 5))
(define/public (foo) RIGHT
(+ info 42)
(* info ChangeMe))
(super-new)))