box-module.scm 658 B

1234567891011121314151617181920212223242526
  1. ;;; examples/box-dynamic-module/box-module.scm -- Scheme module exporting
  2. ;;; some functionality from the shared library libbox-module.
  3. ;;; Commentary:
  4. ;;; This is the Scheme part of the dynamic library module (box-module).
  5. ;;; When you do a (use-modules (box-module)) in this directory,
  6. ;;; this file gets loaded and will load the compiled extension.
  7. ;;; Code:
  8. ;;; Author: Martin Grabmueller
  9. ;;; Date: 2001-06-06
  10. (define-module (box-module))
  11. ;; First, load the library.
  12. ;;
  13. (load-extension "libbox-module" "scm_init_box")
  14. ;; Then export the procedures which should be visible to module users.
  15. ;;
  16. (export make-box box-ref box-set!)
  17. ;;; End of file.