git/t/t4018/scheme-class

8 lines
162 B
Plaintext

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