aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/profiler.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/profiler.c b/src/profiler.c
index ed0e9ddd881..6b482abf335 100644
--- a/src/profiler.c
+++ b/src/profiler.c
@@ -530,7 +530,9 @@ the same lambda expression, or are really unrelated function. */)
530static Lisp_Object 530static Lisp_Object
531cmpfn_profiler (Lisp_Object bt1, Lisp_Object bt2, struct Lisp_Hash_Table *h) 531cmpfn_profiler (Lisp_Object bt1, Lisp_Object bt2, struct Lisp_Hash_Table *h)
532{ 532{
533 if (VECTORP (bt1) && VECTORP (bt2)) 533 if (EQ (bt1, bt2))
534 return Qt;
535 else if (VECTORP (bt1) && VECTORP (bt2))
534 { 536 {
535 ptrdiff_t l = ASIZE (bt1); 537 ptrdiff_t l = ASIZE (bt1);
536 if (l != ASIZE (bt2)) 538 if (l != ASIZE (bt2))
@@ -541,7 +543,7 @@ cmpfn_profiler (Lisp_Object bt1, Lisp_Object bt2, struct Lisp_Hash_Table *h)
541 return Qt; 543 return Qt;
542 } 544 }
543 else 545 else
544 return EQ (bt1, bt2) ? Qt : Qnil; 546 return Qnil;
545} 547}
546 548
547static Lisp_Object 549static Lisp_Object