From e4b76116109179d9d8e1196703766e9a3b62ed81 Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Thu, 27 Jun 2024 09:10:47 -0500
Subject: [PATCH] WIP

Maybe this is best.
---
 org-ql.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/org-ql.el b/org-ql.el
index 1cfcefd..811bd92 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -1118,6 +1118,10 @@ defined in `org-ql-predicates' by calling `org-ql-defpred'."
                                         ;; Only one preamble is allowed
                                         element)
                                       (pcase element
+                                        (`(or ,element)
+                                         ;; A predicate with a single name: unwrap the OR.  (Pcase doesn't like
+                                         ;; "one-armed ORs", giving a "Please avoid it" compilation error.)
+                                         element)
 
                                         ,@preamble-patterns