; Avoid assertion violations in "temacs -Q"
* src/lread.c (build_load_history): Use Fequal to compare strings.
This commit is contained in:
parent
8dc9dfdc38
commit
9c484d5101
1 changed files with 1 additions and 1 deletions
|
@ -2313,7 +2313,7 @@ build_load_history (Lisp_Object filename, bool entire)
|
||||||
if (entire || !foundit)
|
if (entire || !foundit)
|
||||||
{
|
{
|
||||||
Lisp_Object tem = Fnreverse (Vcurrent_load_list);
|
Lisp_Object tem = Fnreverse (Vcurrent_load_list);
|
||||||
eassert (EQ (filename, Fcar (tem)));
|
eassert (!NILP (Fequal (filename, Fcar (tem))));
|
||||||
Vload_history = Fcons (tem, Vload_history);
|
Vload_history = Fcons (tem, Vload_history);
|
||||||
/* FIXME: There should be an unbind_to right after calling us which
|
/* FIXME: There should be an unbind_to right after calling us which
|
||||||
should re-establish the previous value of Vcurrent_load_list. */
|
should re-establish the previous value of Vcurrent_load_list. */
|
||||||
|
|
Loading…
Add table
Reference in a new issue