From 06589f5c229c3ce4dd2cb627c90ef4372dd0a571 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 28 Mar 2013 21:01:51 +0100 Subject: [PATCH] Fix erroneous `FUNC_NAME' for `scm_array_length'. * libguile/generalized-arrays.c (scm_array_length): Fix `FUNC_NAME'. --- libguile/generalized-arrays.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)); }