; Avoid assertion violations in "temacs -Q"

* src/lread.c (build_load_history): Use Fequal to compare strings.

diff --git a/src/lread.c b/src/lread.c
index 854aaa784ad47a98121d1cbc1c22aacc9d40a38c..c4d8d706872838ddddbfb3ff63e47699087a64b9 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2313,7 +2313,7 @@ build_load_history (Lisp_Object filename, bool entire)
   if (entire || !foundit)
     {
       Lisp_Object tem = Fnreverse (Vcurrent_load_list);
-      eassert (EQ (filename, Fcar (tem)));
+      eassert (!NILP (Fequal (filename, Fcar (tem))));
       Vload_history = Fcons (tem, Vload_history);
       /* FIXME: There should be an unbind_to right after calling us which
          should re-establish the previous value of Vcurrent_load_list.  */