diff options
author | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-05-31 15:54:25 +0000 |
---|---|---|
committer | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-05-31 15:54:25 +0000 |
commit | 2de7ddb7669c6a1f964fa9ad9a874523b26f4f34 (patch) | |
tree | d1aa9e7ee83c761f46be62f9698df1471c40e5f6 /examples/modules/module-1.scm | |
parent | 413a1367e205e594685f4686bc4d31d670d70511 (diff) | |
download | guile-2de7ddb7669c6a1f964fa9ad9a874523b26f4f34.tar.gz |
Added the new `examples' directory to the distribution.
Diffstat (limited to 'examples/modules/module-1.scm')
-rw-r--r-- | examples/modules/module-1.scm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/examples/modules/module-1.scm b/examples/modules/module-1.scm new file mode 100644 index 000000000..d62264021 --- /dev/null +++ b/examples/modules/module-1.scm @@ -0,0 +1,22 @@ +;;; examples/modules/module-1.scm -- Module system demo. + +;;; Commentary: + +;;; Module 1 of the module demo program. + +;;; Author: Martin Grabmueller +;;; Date: 2001-05-29 + +;;; Code: + +(define-module (module-1)) + +(export foo bar) + +(define (foo) + (display "module-1 foo") + (newline)) + +(define (bar) + (display "module-1 bar") + (newline)) |