From a24de862ec848568ffae1ed3fb2d515dca0dc6b1 Mon Sep 17 00:00:00 2001
From: Adam Porter <adam@alphapapa.net>
Date: Mon, 23 Nov 2020 02:03:58 -0600
Subject: [PATCH] Fix: (org-ql-defpred) Use alist-get

Until map-2.1 can automatically be installed with makem.sh...
---
 org-ql.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/org-ql.el b/org-ql.el
index b4b98b3c..499e0b1c 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -990,7 +990,8 @@ It would be expanded to:
     `(progn
        (cl-eval-when (compile load eval)
          (cl-defun ,fn-name ,args ,docstring ,body))
-       (setf (map-elt org-ql-predicates ',predicate-name)
+       ;; 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
                      :normalizers ,',normalizers :preambles ,',preambles))
        (unless org-ql-defpred-defer