mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

* strings.c (s_scm_string): fix arg position in assert.

Browse source
This commit is contained in:
Michael Livshin 2001-07-11 22:38:57 +00:00
parent 88151d3284
commit adc166f3ab
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/strings.c
View file

@ -98,7 +98,7 @@ SCM_DEFINE (scm_string, "string", 0, 0, 1,
{
long i = scm_ilength (chrs);
SCM_ASSERT (i >= 0, chrs, SCM_ARGn, FUNC_NAME);
SCM_ASSERT (i >= 0, chrs, SCM_ARG1, FUNC_NAME);
result = scm_allocate_string (i);
}