t/t4018/scheme-define-slash-public


1
2
3
4
5
6
7

(define bar-class%
  (class object%
    (field (info 5))
    (define/public (foo) RIGHT
      (+ info 42)
      (* info ChangeMe))
    (super-new)))