t/t4018/scheme-class


1
2
3
4
5
6
7

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