* coop-threads.c: Remove K&R function headers.

[bpt/guile.git] / libguile / strings.c

diff --git a/libguile/strings.c b/libguile/strings.c
index 2a02fcb..1a155b0 100644 (file)
--- 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
        {