branch: externals/compat
commit 84641a11e87e68d3c5e37d2be45cc6777301b211
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
value<: Fix behavior for values of equal type.
---
compat-30.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/compat-30.el b/compat-30.el
index 830d0c846e..d9d152791f 100644
--- a/compat-30.el
+++ b/compat-30.el
@@ -272,7 +272,10 @@ Other types are considered unordered and the return value
will be ‘nil’."
(while (and (< i n) (equal (aref a i) (aref b i)))
(cl-incf i))
(if (< i n) (value< (aref a i) (aref b i)) (< n nb))))
- ;; TODO Add support for more types.
+ ;; TODO Add support for more types here.
+ ;; Other values of equal type are considered unordered (return value nil).
+ ((eq (type-of a) (type-of b)) nil)
+ ;; Different types.
(t (error "value< unsupported type: %S %S" a b))))
(compat-defun sort (seq &optional lessp &rest rest) ;; <compat-tests:sort>
