Commit | Line | Data |
---|---|---|
2de7ddb7 MG |
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)) | |
673509f8 MG |
23 | |
24 | ;;; End of file. |