Merge branch 'boehm-demers-weiser-gc' into bdw-gc-static-alloc
[bpt/guile.git] / examples / modules / module-1.scm
1 ;;; examples/modules/module-1.scm -- Module system demo.
2
3 ;;; Commentary:
4
5 ;;; Module 1 of the module demo program.
6
7 ;;; Author: Martin Grabmueller
8 ;;; Date: 2001-05-29
9
10 ;;; Code:
11
12 (define-module (module-1))
13
14 (export foo bar)
15
16 (define (foo)
17 (display "module-1 foo")
18 (newline))
19
20 (define (bar)
21 (display "module-1 bar")
22 (newline))
23
24 ;;; End of file.