diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-05-19 00:17:05 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-05-19 00:17:05 +0000 |
commit | 94451729e00a4a14c410929a2d37368a5d07d114 (patch) | |
tree | 245348e93692b509fca29695947ee0f08a6021ba /srfi/srfi-13.c | |
parent | d28690d78a190d533ae326406ee1067295fd31a0 (diff) | |
download | guile-94451729e00a4a14c410929a2d37368a5d07d114.tar.gz |
Avoid using module operations from C.
* srfi-13.c (scm_init_srfi_13_14): Removed.
* srfi-14.h, srfi-14.c (scm_c_init_srfi_14): New. Contains
initializations needed by C clients of srfi-14.
(scm_init_srfi_13, scm_init_srfi_14): Call it.
* srfi-13.scm: Call "scm_init_srf_13" instead of
"scm_init_srfi_13_14".
* srfi-14.scm: Call "scm_init_srf_14" instead of
"scm_init_srfi_13_14".
Diffstat (limited to 'srfi/srfi-13.c')
-rw-r--r-- | srfi/srfi-13.c | 24 |
1 files changed, 1 insertions, 23 deletions
diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c index 4b709781f..88584caaa 100644 --- a/srfi/srfi-13.c +++ b/srfi/srfi-13.c @@ -3026,30 +3026,8 @@ SCM_DEFINE (scm_string_delete, "string-delete", 2, 2, 0, void scm_init_srfi_13 (void) { + scm_c_init_srfi_14 (); #ifndef SCM_MAGIC_SNARFER #include "srfi/srfi-13.x" #endif } - - -void -scm_init_srfi_13_14 (void) -{ - static int initialized = 0; - - if (!initialized) - { - SCM srfi_13_module = scm_make_module (scm_read_0str ("(srfi srfi-13)")); - SCM srfi_14_module = scm_make_module (scm_read_0str ("(srfi srfi-14)")); - SCM old_module; - - initialized = 1; - - old_module = scm_set_current_module (srfi_13_module); - scm_init_srfi_13 (); - scm_set_current_module (srfi_14_module); - scm_init_srfi_14 (); - - scm_set_current_module (old_module); - } -} |