X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=guile18%2Fexamples%2Fmodules%2Fmodule-0.scm;fp=guile18%2Fexamples%2Fmodules%2Fmodule-0.scm;h=a5a001b64f8733b6fc60a5353cf8b904aef8354f;hb=139c38d9204dd07f6b235f83bae644faedbc63fd;hp=0000000000000000000000000000000000000000;hpb=652ed35a2013489d0a14fede6307cd2595abb2c4;p=lilypond.git

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