summaryrefslogtreecommitdiff
path: root/libguile/generalized-arrays.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-03-28 21:01:51 +0100
committerLudovic Courtès <ludo@gnu.org>2013-03-28 22:19:12 +0100
commit06589f5c229c3ce4dd2cb627c90ef4372dd0a571 (patch)
treecaff16f069bf4de75f3f6f961dc2c1c657260c0c /libguile/generalized-arrays.c
parent4a0821a8d5cfff50fef8c119a0d76355b6126009 (diff)
downloadguile-06589f5c229c3ce4dd2cb627c90ef4372dd0a571.tar.gz
Fix erroneous `FUNC_NAME' for `scm_array_length'.
* libguile/generalized-arrays.c (scm_array_length): Fix `FUNC_NAME'.
Diffstat (limited to 'libguile/generalized-arrays.c')
-rw-r--r--libguile/generalized-arrays.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/generalized-arrays.c b/libguile/generalized-arrays.c
index 9382e817e..59925a09e 100644
--- a/libguile/generalized-arrays.c
+++ b/libguile/generalized-arrays.c
@@ -135,7 +135,7 @@ SCM_DEFINE (scm_array_length, "array-length", 1, 0, 0,
(SCM array),
"Return the length of an array: its first dimension.\n"
"It is an error to ask for the length of an array of rank 0.")
-#define FUNC_NAME s_scm_array_rank
+#define FUNC_NAME s_scm_array_length
{
return scm_from_size_t (scm_c_array_length (array));
}