changeset 46428:82755b55ec33

* lisp.h (SREF): Produce rvalue. (SSET): New macro.
author Ken Raeburn <raeburn@raeburn.org>
date Tue, 16 Jul 2002 15:49:34 +0000
parents 5360a8d2f694
children eb5964b8cc24
files src/lisp.h
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/lisp.h	Tue Jul 16 15:49:29 2002 +0000
+++ b/src/lisp.h	Tue Jul 16 15:49:34 2002 +0000
@@ -541,7 +541,8 @@
 
 /* Convenience macros for dealing with Lisp strings.  */
 
-#define SREF(string, index)	XSTRING (string)->data[index]
+#define SREF(string, index)	(XSTRING (string)->data[index] + 0)
+#define SSET(string, index, new) (XSTRING (string)->data[index] = (new))
 #define SDATA(string)		(XSTRING (string)->data + 0)
 #define SCHARS(string)		(XSTRING (string)->size + 0)
 #define SBYTES(string)		(STRING_BYTES (XSTRING (string)) + 0)