1234567891011121314151617181920212223242526 |
- ;;; 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.
|