mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Added scheme module file.

Browse source
This commit is contained in:
Martin Grabmüller 2001-06-07 12:18:01 +00:00
parent e9680547d3
commit 5b33ed3df9
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
examples/box-dynamic-module/box-module.scm Normal file
View file

@ -0,0 +1,17 @@
;;; examples/box-dynamic-module/box-module.scm -- Scheme part of the
;;; dynamic module (box-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))
(load-extension "libbox-module" "scm_init_box")