File: scheme-class

package info (click to toggle)
git 1%3A2.39.5-0%2Bdeb12u2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 55,848 kB
  • sloc: ansic: 276,514; sh: 234,516; perl: 30,909; tcl: 22,154; makefile: 4,185; python: 3,412; javascript: 772; csh: 45; ruby: 43; lisp: 12
file content (7 lines) | stat: -rw-r--r-- 162 bytes parent folder | download | duplicates (8) 
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)))