diff options
author | Michael Livshin <mlivshin@bigfoot.com> | 2001-07-11 22:14:11 +0000 |
---|---|---|
committer | Michael Livshin <mlivshin@bigfoot.com> | 2001-07-11 22:14:11 +0000 |
commit | 4d6aae71833bd104fe6b3515f68f44c727d6ba2e (patch) | |
tree | 76e251e4e3bd58a139cec00edc7a4995a173523d | |
parent | be390de2baddbe5361bfc99da3f402b1e8d19225 (diff) | |
download | guile-4d6aae71833bd104fe6b3515f68f44c727d6ba2e.tar.gz |
* strings.c (s_scm_string): fix arg position in assert.
-rw-r--r-- | libguile/ChangeLog | 4 | ||||
-rw-r--r-- | libguile/strings.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 0ec078395..a78276fbb 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -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> * strports.c (st_write): use memcpy, not strncpy. thanks to diff --git a/libguile/strings.c b/libguile/strings.c index acb53be8d..7c9d548e9 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -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); } |