Remove extraneous semicolon after `SCM_ARRAY_IMPLEMENTATION' & co.

* libguile/bitvectors.c, libguile/srfi-4.c, libguile/strings.c,
  libguile/vectors.c: Remove extraneous semicolon after
  `SCM_ARRAY_IMPLEMENTATION' and `SCM_VECTOR_IMPLEMENTATION'
  invocations.

diff --git a/libguile/arrays.c b/libguile/arrays.c
index 741cc56..39d1067 100644 (file)
--- 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 3e23adf..67f5abd 100644 (file)
--- 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 45b9de0..7388619 100644 (file)
--- 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 651b019..711da9c 100644 (file)
--- 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 fddf0ce..7875328 100644 (file)
--- 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