summaryrefslogtreecommitdiff
path: root/srfi/srfi-14.c
diff options
context:
space:
mode:
Diffstat (limited to 'srfi/srfi-14.c')
-rw-r--r--srfi/srfi-14.c21
1 files changed, 16 insertions, 5 deletions
diff --git a/srfi/srfi-14.c b/srfi/srfi-14.c
index 9fb6b4847..24388fc5c 100644
--- a/srfi/srfi-14.c
+++ b/srfi/srfi-14.c
@@ -1348,13 +1348,24 @@ SCM_DEFINE (scm_char_set_diff_plus_intersection_x, "char-set-diff+intersection!"
void
-scm_init_srfi_14 (void)
+scm_c_init_srfi_14 (void)
{
- scm_tc16_charset = scm_make_smob_type ("character-set",
- SCM_CHARSET_SIZE * sizeof (long));
- scm_set_smob_free (scm_tc16_charset, charset_free);
- scm_set_smob_print (scm_tc16_charset, charset_print);
+ static initialized = 0;
+
+ if (!initialized)
+ {
+ scm_tc16_charset = scm_make_smob_type ("character-set",
+ SCM_CHARSET_SIZE * sizeof (long));
+ scm_set_smob_free (scm_tc16_charset, charset_free);
+ scm_set_smob_print (scm_tc16_charset, charset_print);
+ initialized = 1;
+ }
+}
+void
+scm_init_srfi_14 (void)
+{
+ scm_c_init_srfi_14 ();
#ifndef SCM_MAGIC_SNARFER
#include "srfi/srfi-14.x"
#endif