moduleM.scm 211 B

123456
  1. ;; A runnable module with module-extends and a body that prints something.
  2. (module-extends SimpleB)
  3. (define xx ::integer 20)
  4. (define (get-f) (invoke (this) 'f 5))
  5. (format #t "Hello world - ~d ~a!~%" xx (get-f))