(gh_uniform_vector_length): Properly use scm_c_uniform_vector_length

instead of scm_uniform_vector_length.

diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 581f2b3..ca70b17 100644 (file)
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -580,7 +580,7 @@ gh_vector_length (SCM v)
 unsigned long
 gh_uniform_vector_length (SCM v)
 {
-  return (unsigned long) scm_uniform_vector_length (v);
+  return (unsigned long) scm_c_uniform_vector_length (v);
 }
 
 /* gets the given element from a uniform vector; ilist is a list (or