Added scheme module file.

1 files changed, 17 insertions, 0 deletions

diff --git a/examples/box-dynamic-module/box-module.scm b/examples/box-dynamic-module/box-module.scm
new file mode 100644
index 000000000..cab41c7e5
--- /dev/null
+++ b/examples/box-dynamic-module/box-module.scm
@@ -0,0 +1,17 @@
+;;; examples/box-dynamic-module/box-module.scm -- Scheme part of the
+;;;   dynamic module (box-module)
+
+;;; Commentary:
+
+;;; This is the Scheme part of the dynamic library module (box-module).
+;;; When you do a (use-modules (box-module)) in this directory,
+;;; this file gets loaded and will load the compiled extension.
+
+;;; Code:
+
+;;; Author: Martin Grabmueller
+;;; Date: 2001-06-06
+
+(define-module (box-module))
+
+(load-extension "libbox-module" "scm_init_box")