1 ;;; examples/box-dynamic-module/box-module.scm -- Scheme module exporting
2 ;;; some functionality from the shared library libbox-module.
6 ;;; This is the Scheme part of the dynamic library module (box-module).
7 ;;; When you do a (use-modules (box-module)) in this directory,
8 ;;; this file gets loaded and will load the compiled extension.
12 ;;; Author: Martin Grabmueller
15 (define-module (box-module))
17 ;; First, load the library.
19 (load-extension "libbox-module" "scm_init_box")
21 ;; Then export the procedures which should be visible to module users.
23 (export make-box box-ref box-set!)