mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +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:14:11 +00:00
parent be390de2ba
commit 4d6aae7183
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2001-07-12 Michael Livshin <mlivshin@bigfoot.com>
* strings.c (s_scm_string): fix arg position in assert.
2001-07-11 Gary Houston <ghouston@arglist.com> 2001-07-11 Gary Houston <ghouston@arglist.com>
* strports.c (st_write): use memcpy, not strncpy. thanks to * strports.c (st_write): use memcpy, not strncpy. thanks to

2
libguile/strings.c
View file

@ -98,7 +98,7 @@ SCM_DEFINE (scm_string, "string", 0, 0, 1,
{ {
long i = scm_ilength (chrs); 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); result = scm_allocate_string (i);
} }