guile18/examples/modules/module-2.scm

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