# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1026834527 0
# Node ID b12a3266243303aa39ae5a9b4c995905d2c72f77
# Parent  f498269eec42bf18ca7a1d506a9d70fb37ed8ccf
* alloc.c (make_event_array): Use SSET for storing into a string.

diff -r f498269eec42 -r b12a32662433 src/alloc.c
--- a/src/alloc.c	Tue Jul 16 15:09:36 2002 +0000
+++ b/src/alloc.c	Tue Jul 16 15:48:47 2002 +0000
@@ -2701,10 +2701,10 @@
     result = Fmake_string (make_number (nargs), make_number (0));
     for (i = 0; i < nargs; i++)
       {
-	SREF (result, i) = XINT (args[i]);
+	SSET (result, i, XINT (args[i]));
 	/* Move the meta bit to the right place for a string char.  */
 	if (XINT (args[i]) & CHAR_META)
-	  SREF (result, i) |= 0x80;
+	  SSET (result, i, SREF (result, i) | 0x80);
       }
     
     return result;