guile/guile-core/srfi ChangeLog srfi-13.scm srf...

[Martin Grabmueller]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Martin Grabmueller <address@hidden>     01/05/31 11:22:54

Modified files:
        guile-core/srfi: ChangeLog srfi-13.scm srfi-14.scm 

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

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.26&tr2=1.27&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-13.scm.diff?cvsroot=OldCVS&tr1=1.5&tr2=1.6&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-14.scm.diff?cvsroot=OldCVS&tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.26 
guile/guile-core/srfi/ChangeLog:1.27
--- guile/guile-core/srfi/ChangeLog:1.26        Thu May 31 05:47:24 2001
+++ guile/guile-core/srfi/ChangeLog     Thu May 31 11:22:54 2001
@@ -1,3 +1,8 @@
+2001-05-31  Martin Grabmueller  <address@hidden>
+
+       * srfi-14.scm, srfi-13.scm: Use `load-extension' for loading the
+       shared library.
+
 2001-05-31  Michael Livshin  <address@hidden>
 
        * Makefile.am (MKDEP): copied from libguile/Makefile.am, just in
Index: guile/guile-core/srfi/srfi-13.scm
diff -u guile/guile-core/srfi/srfi-13.scm:1.5 
guile/guile-core/srfi/srfi-13.scm:1.6
--- guile/guile-core/srfi/srfi-13.scm:1.5       Tue May 22 22:04:55 2001
+++ guile/guile-core/srfi/srfi-13.scm   Thu May 31 11:22:54 2001
@@ -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)
Index: guile/guile-core/srfi/srfi-14.scm
diff -u guile/guile-core/srfi/srfi-14.scm:1.3 
guile/guile-core/srfi/srfi-14.scm:1.4
--- guile/guile-core/srfi/srfi-14.scm:1.3       Tue May 22 22:04:55 2001
+++ guile/guile-core/srfi/srfi-14.scm   Thu May 31 11:22:54 2001
@@ -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