changeset 56361:1f6748b338da

(Fclear_string): Put call to CHECK_STRING in correct place.
author Luc Teirlinck <teirllm@auburn.edu>
date Tue, 06 Jul 2004 17:50:32 +0000
parents a9b695d281d4
children f9bb0a7d3c17
files src/fns.c
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Tue Jul 06 12:31:24 2004 +0000
+++ b/src/fns.c	Tue Jul 06 17:50:32 2004 +0000
@@ -2370,8 +2370,8 @@
      (string)
      Lisp_Object string;
 {
+  int len = SBYTES (string);
   CHECK_STRING (string);
-  int len = SBYTES (string);
   bzero (SDATA (string), len);
   STRING_SET_CHARS (string, len);
   STRING_SET_UNIBYTE (string);