summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-class
blob: e5e07b43fb2b4e73f1a42d5d996a6ba217807706 (plain)
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)))