# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1089136232 0
# Node ID 1f6748b338da3c99cdfe6bff31f6511a61cd2a54
# Parent  a9b695d281d467c51550ea37945dda4f53ba813c
(Fclear_string): Put call to CHECK_STRING in correct place.

diff -r a9b695d281d4 -r 1f6748b338da src/fns.c
--- 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);