(scm_i_cvref): Made non-static for ramap.c.

diff --git a/libguile/unif.c b/libguile/unif.c
index e50b726..9d03008 100644 (file)
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -870,7 +870,7 @@ SCM_DEFINE (scm_array_in_bounds_p, "array-in-bounds?", 1, 0, 1,
 }
 #undef FUNC_NAME
 
-static SCM 
+SCM 
 scm_i_cvref (SCM v, size_t pos, int enclosed)
 {
   if (enclosed)

diff --git a/libguile/unif.h b/libguile/unif.h
index 4ab93f4..a634e37 100644 (file)
--- a/libguile/unif.h
+++ b/libguile/unif.h
@@ -143,6 +143,7 @@ SCM_API SCM scm_ra2contig (SCM ra, int copy);
 SCM_API SCM scm_i_proc_make_vector;
 SCM_API SCM scm_i_proc_make_string;
 SCM_API SCM scm_i_proc_make_bitvector;
+SCM_API SCM scm_i_cvref (SCM v, size_t p, int enclosed);
 
 SCM_API void scm_init_unif (void);