guile18/examples/box-dynamic-module/box-module.scm

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