* process.c (status_message): Use SSET.

This commit is contained in:
Ken Raeburn 2002-07-16 15:49:48 +00:00
parent 96fb177ac6
commit a814cc69c6

View file

@ -419,7 +419,7 @@ status_message (status)
signame = "unknown";
string = build_string (signame);
string2 = build_string (coredump ? " (core dumped)\n" : "\n");
SREF (string, 0) = DOWNCASE (SREF (string, 0));
SSET (string, 0, DOWNCASE (SREF (string, 0)));
return concat2 (string, string2);
}
else if (EQ (symbol, Qexit))