diff options
| -rw-r--r-- | src/profiler.c | 6 |
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. */) | |||
| 530 | static Lisp_Object | 530 | static Lisp_Object |
| 531 | cmpfn_profiler (Lisp_Object bt1, Lisp_Object bt2, struct Lisp_Hash_Table *h) | 531 | cmpfn_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 | ||
| 547 | static Lisp_Object | 549 | static Lisp_Object |