Merge branch 'boehm-demers-weiser-gc' into bdw-gc-static-alloc
[bpt/guile.git] / 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.