Merge branch 'ba/object-info'

[git] / t / t4018 / scheme-class

(define book-class%
  (class* () object% RIGHT
    (field (pages 5))
    (field (ChangeMe 5))
    (define/public (letters)
      (* pages 500))
    (super-new)))