diff options
author | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-06-28 16:39:00 +0000 |
---|---|---|
committer | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-06-28 16:39:00 +0000 |
commit | 2c4df451863763567ee9813093e6f81b30244d53 (patch) | |
tree | 01d6585d7c104855a5cd3ddc48bfed2cc74048d8 /srfi/srfi-4.c | |
parent | df1ad0d146b78a4eeefaf0e0eb33de7cbf0354ff (diff) | |
download | guile-2c4df451863763567ee9813093e6f81b30244d53.tar.gz |
* srfi-4.c: Minor cleanups.
* srfi-14.c (scm_char_set_fold, scm_char_set_unfold)
(scm_char_set_unfold_x, scm_char_set_for_each)
(scm_char_set_map, scm_char_set_filter)
(scm_char_set_filter_x, scm_char_set_count)
(scm_char_set_every, scm_char_set_any): Replace calls to
scm_apply() with the corresponding scm_call_N() functions.
* srfi-14.c (scm_char_set_ref, scm_char_set_cursor_next)
(scm_char_set_unfold, scm_char_set_unfold_x)
(scm_char_set_map, scm_char_set_diff_plus_intersection)
(scm_char_set_diff_plus_intersection_x): Replace deprecated macros
SCM_LISTN with calls to scm_list_N().
* srfi-13.c (scm_string_tabulate, scm_string_map)
(scm_string_map_x, scm_string_unfold)
(scm_string_unfold_right): Replace deprecated macros SCM_LISTN
with calls to scm_list_N().
* srfi-13.c (scm_string_any, scm_string_every),
(scm_string_tabulate, scm_string_trim),
(scm_string_trim_right, scm_string_trim_both),
(scm_string_compare, scm_string_compare_ci),
(scm_string_indexS, scm_string_index_right),
(scm_string_skip, scm_string_skip_right, scm_string_count),
(scm_string_map, scm_string_map_x, scm_string_fold),
(scm_string_fold_right, scm_string_unfold),
(scm_string_unfold_right, scm_string_for_each),
(scm_string_filter, scm_string_delete): Replace calls to
scm_apply() with the corresponding scm_call_N() functions.
Diffstat (limited to 'srfi/srfi-4.c')
-rw-r--r-- | srfi/srfi-4.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/srfi/srfi-4.c b/srfi/srfi-4.c index da3025e1d..c90b36675 100644 --- a/srfi/srfi-4.c +++ b/srfi/srfi-4.c @@ -68,6 +68,7 @@ typedef signed long long int_s64; typedef float float_f32; typedef double float_f64; + /* Smob type code for homogeneous numeric vectors. */ int scm_tc16_uvec = 0; @@ -2138,6 +2139,8 @@ SCM_DEFINE (scm_list_to_f64vector, "list->f64vector", 1, 0, 0, #undef FUNC_NAME +/* Create the smob type for homogeneous numeric vectors and install + the primitives. */ void scm_init_srfi_4 (void) { @@ -2148,3 +2151,5 @@ scm_init_srfi_4 (void) #include "srfi/srfi-4.x" #endif } + +/* End of srfi-4.c. */ |