# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026699412 0
# Node ID e90f58d3450c4f811b7c51a90e687ba671732cfb
# Parent  5d419e7c527dc529da4f20d026046a787b4948aa
* lread.c (read_vector): Use STRING_SET_CHARS.

diff -r 5d419e7c527d -r e90f58d3450c src/lread.c
--- a/src/lread.c	Mon Jul 15 02:16:15 2002 +0000
+++ b/src/lread.c	Mon Jul 15 02:16:52 2002 +0000
@@ -2760,7 +2760,7 @@
 		  /* Coerce string to unibyte (like string-as-unibyte,
 		     but without generating extra garbage and
 		     guaranteeing no change in the contents).  */
-		  SCHARS (bytestr) = SBYTES (bytestr);
+		  STRING_SET_CHARS (bytestr, SBYTES (bytestr));
 		  STRING_SET_UNIBYTE (bytestr);
 
 		  item = Fread (bytestr);