From dc6f2d2501f44a115d71434d76c46a88fa66daf4 Mon Sep 17 00:00:00 2001
From: Ihor Radchenko <yantar92@gmail.com>
Date: Tue, 6 Apr 2021 21:54:29 +0800
Subject: [PATCH] Avoid compiler warnings when defining predicate without body

---
 org-ql.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-ql.el b/org-ql.el
index efedf97..5acd817 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -1117,7 +1117,7 @@ It would be expanded to:
          (preambles (cl-sublis (list (cons 'predicate-names (cons 'or (--map (list 'quote it) predicate-names))))
                                preambles)))
     `(progn
-       (cl-defun ,fn-name ,args ,docstring ,body)
+       (cl-defun ,fn-name ,(if body args '(&rest _)) ,docstring ,body)
        ;; SOMEDAY: Use `map-elt' here, after map 2.1 can be automatically installed in CI sandbox...
        (setf (alist-get ',predicate-name org-ql-predicates)
              `(:name ,',name :aliases ,',aliases :fn ,',fn-name :docstring ,(\, docstring) :args ,',args