# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1134315351 0
# Node ID b23a7ce63153289aaa074534f52912cda7b31a6f
# Parent  51053176f6b78fc8caf8d82c544f42b0ad49435e
(EQ): Use == so args are computed just once.

diff -r 51053176f6b7 -r b23a7ce63153 src/lisp.h
--- a/src/lisp.h	Sun Dec 11 15:35:14 2005 +0000
+++ b/src/lisp.h	Sun Dec 11 15:35:51 2005 +0000
@@ -454,7 +454,7 @@
 extern Lisp_Object make_number P_ ((EMACS_INT));
 #endif
 
-#define EQ(x, y) ((x).s.val == (y).s.val && (x).s.type == (y).s.type)
+#define EQ(x, y) ((x).i == (y).i)
 
 #endif /* NO_UNION_TYPE */