summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-define-slash-public
blob: 39a93a16004a6f58affff824485a3ffd29799a6d (plain)
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)))