Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / examples / modules / module-2.scm

diff --git a/guile18/examples/modules/module-2.scm b/guile18/examples/modules/module-2.scm
new file mode 100644 (file)
index 0000000..3147b2c
--- /dev/null
+++ b/guile18/examples/modules/module-2.scm
@@ -0,0 +1,28 @@
+;;; examples/modules/module-2.scm -- Module system demo.
+
+;;; Commentary:
+
+;;; Module 2 of the module demo program.
+
+;;; Author: Martin Grabmueller
+;;; Date: 2001-05-29
+
+;;; Code:
+
+(define-module (module-2))
+
+(export foo bar braz)
+
+(define (foo)
+  (display "module-2 foo")
+  (newline))
+
+(define (bar)
+  (display "module-2 bar")
+  (newline))
+
+(define (braz)
+  (display "module-2 braz")
+  (newline))
+
+;;; End of file.