t/t4018/scheme-define-slash-public

   1 (define bar-class%
   2   (class object%
   3     (field (info 5))
   4     (define/public (foo) RIGHT
   5       (+ info 42)
   6       (* info ChangeMe))
   7     (super-new)))