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

* srfi-14.scm, srfi-13.scm: Use `load-extension' for loading the

Browse source 
shared library.
This commit is contained in:
Martin Grabmüller 2001-05-31 18:22:54 +00:00
parent 2de7ddb766
commit dd22a80ac6
3 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/ChangeLog
View file

@ -1,3 +1,8 @@
2001-05-31 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* srfi-14.scm, srfi-13.scm: Use `load-extension' for loading the
shared library.
2001-05-31 Michael Livshin <mlivshin@bigfoot.com> 2001-05-31 Michael Livshin <mlivshin@bigfoot.com>
* Makefile.am (MKDEP): copied from libguile/Makefile.am, just in * Makefile.am (MKDEP): copied from libguile/Makefile.am, just in

2
srfi/srfi-13.scm
View file

@ -112,7 +112,7 @@
(cond-expand-provide (current-module) '(srfi-13)) (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 (define string-hash
(lambda (s . rest) (lambda (s . rest)

2
srfi/srfi-14.scm
View file

@ -92,7 +92,7 @@
(cond-expand-provide (current-module) '(srfi-14)) (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) (define (->char-set x)
(cond (cond