summaryrefslogtreecommitdiff
path: root/srfi/srfi-4.c
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-06-28 16:39:00 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-06-28 16:39:00 +0000
commit2c4df451863763567ee9813093e6f81b30244d53 (patch)
tree01d6585d7c104855a5cd3ddc48bfed2cc74048d8 /srfi/srfi-4.c
parentdf1ad0d146b78a4eeefaf0e0eb33de7cbf0354ff (diff)
downloadguile-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.c5
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. */