branch: master commit c1e148b2677435d0992129df4a7aaa60ab0d046b Merge: 7c20c24 2bc1a7c Author: Artur Malabarba <bruce.connor...@gmail.com> Commit: Artur Malabarba <bruce.connor...@gmail.com>
Merge commit '2bc1a7c5f09de5deb7f27b2b4ed731271f9f3f05' --- packages/validate/validate.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/packages/validate/validate.el b/packages/validate/validate.el index f2dcc23..a51cd81 100644 --- a/packages/validate/validate.el +++ b/packages/validate/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))