diff options
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index 2a02fcb3d..1a155b059 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -114,7 +114,7 @@ GUILE_PROC(scm_string, "string", 0, 0, 1, for (len = 0, s = chrs; s != SCM_EOL; s = SCM_CDR (s)) if (SCM_ICHRP (SCM_CAR (s))) len += 1; - else if (SCM_NIMP (SCM_CAR (s)) && SCM_ROSTRINGP (SCM_CAR (s))) + else if (SCM_ROSTRINGP (SCM_CAR (s))) len += SCM_ROLENGTH (SCM_CAR (s)); else { |