blob: ab589ba1b63478258867a8ce9fb2096ea4f97eec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
;;; examples/box-dynamic-module/box-module.scm -- Scheme module exporting
;;; some functionality from the shared library libbox-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))
;; First, load the library.
;;
(load-extension "libbox-module" "scm_init_box")
;; Then export the procedures which should be visible to module users.
;;
(export make-box box-ref box-set!)
;;; End of file.
|