[elpa] master 2bc1a7c 1/2: Fix a false negative with list/group/vector schemas

[Artur Malabarba]

branch: master
commit 2bc1a7c5f09de5deb7f27b2b4ed731271f9f3f05
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    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 <address@hidden>
 ;; 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))