summaryrefslogtreecommitdiff
path: root/srfi/srfi-13.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-05-19 00:17:05 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-05-19 00:17:05 +0000
commit94451729e00a4a14c410929a2d37368a5d07d114 (patch)
tree245348e93692b509fca29695947ee0f08a6021ba /srfi/srfi-13.c
parentd28690d78a190d533ae326406ee1067295fd31a0 (diff)
downloadguile-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.c24
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);
- }
-}