[elpa] externals/compat 4c45789d9b 1/5: Correct error signalling in sort, length=, length< and length>

[ELPA Syncer]

branch: externals/compat
commit 4c45789d9b1a8df0bf3fc2b258dd54b06d3b26b7
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Correct error signalling in sort, length=, length< and length>
---
 compat-25.el | 2 +-
 compat-28.el | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compat-25.el b/compat-25.el
index b393dc8ea2..7901091b13 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -55,7 +55,7 @@ usage: (bool-vector &rest OBJECTS)"
         (aset seq i (car p))
         (setq i (1+ i) p (cdr p)))
       (apply #'vector list)))
-   ((signal 'wrong-type-argument 'list-or-vector-p))))
+   (t (signal 'wrong-type-argument (list 'list-or-vector-p seq)))))
 
 ;;;; Defined in editfns.c
 
diff --git a/compat-28.el b/compat-28.el
index b305ab2fff..7081e332d9 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -65,7 +65,7 @@ issues are inherited."
          t))
    ((arrayp sequence)
     (= (length sequence) length))
-   ((signal 'wrong-type-argument sequence))))
+   (t (signal 'wrong-type-argument (list 'sequencep sequence)))))
 
 (compat-defun length< (sequence length) ;; [[compat-tests:length<]]
   "Returns non-nil if SEQUENCE is shorter than LENGTH."
@@ -75,7 +75,7 @@ issues are inherited."
     (null (nthcdr (1- length) sequence)))
    ((arrayp sequence)
     (< (length sequence) length))
-   ((signal 'wrong-type-argument sequence))))
+   (t (signal 'wrong-type-argument (list 'sequencep sequence)))))
 
 (compat-defun length> (sequence length) ;; [[compat-tests:length>]]
   "Returns non-nil if SEQUENCE is longer than LENGTH."
@@ -84,7 +84,7 @@ issues are inherited."
     (and (nthcdr length sequence) t))
    ((arrayp sequence)
     (> (length sequence) length))
-   ((signal 'wrong-type-argument sequence))))
+   (t (signal 'wrong-type-argument (list 'sequencep sequence)))))
 
 ;;;; Defined in fileio.c