guile18/examples/modules/module-0.scm

   1 ;;; examples/modules/module-0.scm -- Module system demo.
   2
   3 ;;; Commentary:
   4
   5 ;;; Module 0 of the module demo program.
   6
   7 ;;; Author: Martin Grabmueller
   8 ;;; Date: 2001-05-29
   9
  10 ;;; Code:
  11
  12 (define-module (module-0))
  13
  14 (export foo bar)
  15
  16 (define (foo)
  17   (display "module-0 foo")
  18   (newline))
  19
  20 (define (bar)
  21   (display "module-0 bar")
  22   (newline))
  23
  24 ;;; End of file.