summaryrefslogtreecommitdiff
path: root/examples/modules/module-1.scm
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-31 15:54:25 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-31 15:54:25 +0000
commit2de7ddb7669c6a1f964fa9ad9a874523b26f4f34 (patch)
treed1aa9e7ee83c761f46be62f9698df1471c40e5f6 /examples/modules/module-1.scm
parent413a1367e205e594685f4686bc4d31d670d70511 (diff)
downloadguile-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.scm22
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))