From dd22a80ac666c403f1fef9de14abb8eff97a754d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= Date: Thu, 31 May 2001 18:22:54 +0000 Subject: [PATCH] * srfi-14.scm, srfi-13.scm: Use `load-extension' for loading the shared library. --- srfi/ChangeLog | 5 +++++ srfi/srfi-13.scm | 2 +- srfi/srfi-14.scm | 2 +- 3 files changed, 7 insertions(+), 2 deletions(-) diff --git a/srfi/ChangeLog b/srfi/ChangeLog index a9ef7e535..3b77ca198 100644 --- a/srfi/ChangeLog +++ b/srfi/ChangeLog @@ -1,3 +1,8 @@ +2001-05-31 Martin Grabmueller + + * srfi-14.scm, srfi-13.scm: Use `load-extension' for loading the + shared library. + 2001-05-31 Michael Livshin * Makefile.am (MKDEP): copied from libguile/Makefile.am, just in diff --git a/srfi/srfi-13.scm b/srfi/srfi-13.scm index 76fcc6d06..dc3821b7b 100644 --- a/srfi/srfi-13.scm +++ b/srfi/srfi-13.scm @@ -112,7 +112,7 @@ (cond-expand-provide (current-module) '(srfi-13)) -(dynamic-call "scm_init_srfi_13" (dynamic-link "libguile-srfi-srfi-13-14")) +(load-extension "libguile-srfi-srfi-13-14" "scm_init_srfi_13") (define string-hash (lambda (s . rest) diff --git a/srfi/srfi-14.scm b/srfi/srfi-14.scm index 1cea4e079..ae0e32a3b 100644 --- a/srfi/srfi-14.scm +++ b/srfi/srfi-14.scm @@ -92,7 +92,7 @@ (cond-expand-provide (current-module) '(srfi-14)) -(dynamic-call "scm_init_srfi_14" (dynamic-link "libguile-srfi-srfi-13-14")) +(load-extension "libguile-srfi-srfi-13-14" "scm_init_srfi_14") (define (->char-set x) (cond