changeset 19573:9305d9d0d285

(concat): Fix use of Fchar_bytes.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Aug 1997 17:21:54 +0000
parents 30e299bb4a5d
children b4533deef3b8
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Wed Aug 27 17:21:27 1997 +0000
+++ b/src/fns.c	Wed Aug 27 17:21:54 1997 +0000
@@ -427,7 +427,7 @@
 		ch = XVECTOR (this)->contents[i];
 		if (! INTEGERP (ch))
 		  wrong_type_argument (Qintegerp, ch);
-		leni += Fchar_bytes (ch);
+		leni += XFASTINT (Fchar_bytes (ch));
 	      }
 	  else
 	    for (; CONSP (this); this = XCONS (this)->cdr)
@@ -435,7 +435,7 @@
 		ch = XCONS (this)->car;
 		if (! INTEGERP (ch))
 		  wrong_type_argument (Qintegerp, ch);
-		leni += Fchar_bytes (ch);
+		leni += XFASTINT (Fchar_bytes (ch));
 	      }
 	}
       else