summaryrefslogtreecommitdiff
path: root/libguile/srfi-13.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-04-10 22:14:15 +0000
committerKevin Ryde <user42@zip.com.au>2005-04-10 22:14:15 +0000
commit57d9803440d35b66fb3b3a14588873903f906199 (patch)
treeca39733b6d1dd1a2efc4c70d2f25607a7b708a75 /libguile/srfi-13.c
parent879cdfa3dc6d31fe1e5eb0f575bc1de78dc82123 (diff)
downloadguile-57d9803440d35b66fb3b3a14588873903f906199.tar.gz
(scm_string_concatenate, scm_string_concatenate_shared):
Validate list argument, scm_string_append and scm_string_append_shared don't do that to their rest argument (in a normal build).
Diffstat (limited to 'libguile/srfi-13.c')
-rw-r--r--libguile/srfi-13.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/srfi-13.c b/libguile/srfi-13.c
index d727a08be..a4e385787 100644
--- a/libguile/srfi-13.c
+++ b/libguile/srfi-13.c
@@ -1,6 +1,6 @@
/* srfi-13.c --- SRFI-13 procedures for Guile
*
- * Copyright (C) 2001, 2004 Free Software Foundation, Inc.
+ * Copyright (C) 2001, 2004, 2005 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
@@ -2656,6 +2656,7 @@ SCM_DEFINE (scm_string_concatenate, "string-concatenate", 1, 0, 0,
"allocated string.")
#define FUNC_NAME s_scm_string_concatenate
{
+ SCM_VALIDATE_LIST (SCM_ARG1, ls);
return scm_string_append (ls);
}
#undef FUNC_NAME
@@ -2695,6 +2696,7 @@ SCM_DEFINE (scm_string_concatenate_shared, "string-concatenate/shared", 1, 0, 0,
"with the strings in the list @var{ls}.")
#define FUNC_NAME s_scm_string_concatenate_shared
{
+ SCM_VALIDATE_LIST (SCM_ARG1, ls);
return scm_string_append_shared (ls);
}
#undef FUNC_NAME