; Avoid assertion violations in "temacs -Q"

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

(cherry picked from commit 9c484d510121e0d545f952bc016586ead61d3f10)

diff --git a/src/lread.c b/src/lread.c
index ea0398196e38e248e6d3be9fdfdd3bd67ff72783..c25ffb3c4fec72c7b1719c030b55b8623a243550 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2309,7 +2309,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.  */