diff options
Diffstat (limited to 'srfi/srfi-14.c')
-rw-r--r-- | srfi/srfi-14.c | 21 |
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 |