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