summaryrefslogtreecommitdiff
path: root/libguile/generalized-arrays.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-10-06 23:40:30 +0200
committerLudovic Courtès <ludo@gnu.org>2009-10-06 23:41:39 +0200
commit61aab1c3755a97390fc8e365fbd4a6b1a4f80978 (patch)
treeeee5d64d8f2f9205d22b8089a684d64f90edaa27 /libguile/generalized-arrays.c
parentf67ddf9dbfec851676806a2f3dff7eae539ac499 (diff)
downloadguile-61aab1c3755a97390fc8e365fbd4a6b1a4f80978.tar.gz
Fix typo in `scm_array_p_2 ()'.
* libguile/generalized-arrays.c (scm_array_p_2)[FUNC_NAME]: Fix.
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 13f66fdca..8bbbed4d1 100644
--- a/libguile/generalized-arrays.c
+++ b/libguile/generalized-arrays.c
@@ -43,7 +43,7 @@ SCM_DEFINE (scm_array_p_2, "array?", 1, 0, 0,
(SCM obj),
"Return @code{#t} if the @var{obj} is an array, and @code{#f} if\n"
"not.")
-#define FUNC_NAME s_scm_array_p
+#define FUNC_NAME s_scm_array_p_2
{
return scm_from_bool (scm_is_array (obj));
}