summaryrefslogtreecommitdiff
path: root/libguile/srfi-14.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-09-15 00:40:44 +0200
committerLudovic Courtès <ludo@gnu.org>2009-09-15 00:40:44 +0200
commit4c0fc0070257cff52d14b340b94d7d05c0ef7260 (patch)
tree5366693729ddd2722e7a58153659f063a01ad604 /libguile/srfi-14.c
parent8071c4907f895403c1f3a04915b3b34a32881659 (diff)
downloadguile-4c0fc0070257cff52d14b340b94d7d05c0ef7260.tar.gz
Nitpick in `srfi-14.c'.
* libguile/srfi-14.c (scm_i_ucs_range_to_char_set): Fix warning about the position of BASE_CS.
Diffstat (limited to 'libguile/srfi-14.c')
-rw-r--r--libguile/srfi-14.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/srfi-14.c b/libguile/srfi-14.c
index 76e776c15..38ef32049 100644
--- a/libguile/srfi-14.c
+++ b/libguile/srfi-14.c
@@ -1,6 +1,6 @@
/* srfi-14.c --- SRFI-14 procedures for Guile
*
- * Copyright (C) 2001, 2004, 2006, 2007 Free Software Foundation, Inc.
+ * Copyright (C) 2001, 2004, 2006, 2007, 2009 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@@ -1325,7 +1325,7 @@ scm_i_ucs_range_to_char_set (const char *FUNC_NAME, SCM lower, SCM upper,
cs = make_char_set (FUNC_NAME);
else
{
- SCM_VALIDATE_SMOB (4, base_cs, charset);
+ SCM_VALIDATE_SMOB (3, base_cs, charset);
if (reuse)
cs = base_cs;
else