This commit is contained in:
viz 2025-04-21 23:53:22 +08:00 committed by GitHub
commit bf53dbc550
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -1003,7 +1003,8 @@ value of `org-ql-predicates')."
(peg-run (peg ,(caar pexs)) (peg-run (peg ,(caar pexs))
(lambda (failures) (lambda (failures)
(when org-ql-signal-peg-failure (when org-ql-signal-peg-failure
(peg-signal-failure failures))))))))) (peg-signal-failure failures)))))
t))))
(pcase parsed-sexp (pcase parsed-sexp
(`(,one-predicate) one-predicate) (`(,one-predicate) one-predicate)
(`(,_ . ,_) (cons boolean (reverse parsed-sexp))) (`(,_ . ,_) (cons boolean (reverse parsed-sexp)))