summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/arrays.c2
-rw-r--r--libguile/bitvectors.c4
-rw-r--r--libguile/srfi-4.c2
-rw-r--r--libguile/strings.c4
-rw-r--r--libguile/vectors.c6
5 files changed, 9 insertions, 9 deletions
diff --git a/libguile/arrays.c b/libguile/arrays.c
index 741cc564a..39d10670b 100644
--- a/libguile/arrays.c
+++ b/libguile/arrays.c
@@ -1129,7 +1129,7 @@ array_get_handle (SCM array, scm_t_array_handle *h)
SCM_ARRAY_IMPLEMENTATION (SCM_SMOB_TYPE_BITS (scm_i_tc16_array),
SCM_SMOB_TYPE_MASK,
array_handle_ref, array_handle_set,
- array_get_handle);
+ array_get_handle)
void
scm_init_arrays ()
diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c
index 3e23adf8e..67f5abdfb 100644
--- a/libguile/bitvectors.c
+++ b/libguile/bitvectors.c
@@ -881,8 +881,8 @@ bitvector_get_handle (SCM bv, scm_t_array_handle *h)
SCM_ARRAY_IMPLEMENTATION (SCM_SMOB_TYPE_BITS (scm_tc16_bitvector),
SCM_SMOB_TYPE_MASK,
bitvector_handle_ref, bitvector_handle_set,
- bitvector_get_handle);
-SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_BIT, scm_make_bitvector);
+ bitvector_get_handle)
+SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_BIT, scm_make_bitvector)
void
scm_init_bitvectors ()
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c
index 45b9de066..738861928 100644
--- a/libguile/srfi-4.c
+++ b/libguile/srfi-4.c
@@ -886,7 +886,7 @@ uvec_get_handle (SCM v, scm_t_array_handle *h)
SCM_ARRAY_IMPLEMENTATION (SCM_SMOB_TYPE_BITS (scm_tc16_uvec),
SCM_SMOB_TYPE_MASK,
uvec_handle_ref, uvec_handle_set,
- uvec_get_handle);
+ uvec_get_handle)
void
scm_init_srfi_4 (void)
diff --git a/libguile/strings.c b/libguile/strings.c
index 651b0193d..711da9c7e 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -1893,8 +1893,8 @@ string_get_handle (SCM v, scm_t_array_handle *h)
SCM_ARRAY_IMPLEMENTATION (scm_tc7_string, 0x7f & ~2,
string_handle_ref, string_handle_set,
- string_get_handle);
-SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_CHAR, scm_make_string);
+ string_get_handle)
+SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_CHAR, scm_make_string)
void
scm_init_strings ()
diff --git a/libguile/vectors.c b/libguile/vectors.c
index fddf0ce51..787532858 100644
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -627,11 +627,11 @@ vector_get_handle (SCM v, scm_t_array_handle *h)
SCM_ARRAY_IMPLEMENTATION (scm_tc7_vector, 0x7f & ~2,
vector_handle_ref, vector_handle_set,
- vector_get_handle);
+ vector_get_handle)
SCM_ARRAY_IMPLEMENTATION (scm_tc7_wvect, 0x7f & ~2,
vector_handle_ref, vector_handle_set,
- vector_get_handle);
-SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_SCM, scm_make_vector);
+ vector_get_handle)
+SCM_VECTOR_IMPLEMENTATION (SCM_ARRAY_ELEMENT_TYPE_SCM, scm_make_vector)
void