branch: master
commit 2bc1a7c5f09de5deb7f27b2b4ed731271f9f3f05
Author: Artur Malabarba <bruce.connor...@gmail.com>
Commit: Artur Malabarba <bruce.connor...@gmail.com>
Fix a false negative with list/group/vector schemas
---
validate.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/validate.el b/validate.el
index f2dcc23..a51cd81 100644
--- a/validate.el
+++ b/validate.el
@@ -5,7 +5,7 @@
;; Author: Artur Malabarba <em...@endlessparentheses.com>
;; Keywords: lisp
;; Package-Requires: ((emacs "24.1") (cl-lib "0.5") (seq "2.16"))
-;; Version: 1.0.2
+;; Version: 1.0.4
;;; Commentary:
;;
@@ -60,9 +60,10 @@
(defun validate--check-list-contents (values schemas)
"Check that all VALUES match all SCHEMAS."
- (if (not (= (length values) (length schemas)))
- "wrong number of elements"
- (seq-find #'identity (seq-mapn #'validate--check values schemas))))
+ (when schemas
+ (if (not (= (length values) (length schemas)))
+ "wrong number of elements"
+ (seq-find #'identity (seq-mapn #'validate--check values schemas)))))
(defun validate--indent-by-2 (x)
(replace-regexp-in-string "^" " " x))
