diff --git a/org-ql.el b/org-ql.el index 9f7d939..158b09d 100644 --- a/org-ql.el +++ b/org-ql.el @@ -242,7 +242,7 @@ returns nil or non-nil." (pcase sort (`nil items) ((or 'date 'deadline 'scheduled 'todo 'priority 'random - (guard (cl-loop for elem in sort + (guard (cl-loop for elem in (-list sort) always (memq elem '(date deadline scheduled todo priority random))))) ;; Default sorting functions (org-ql--sort-by items (-list sort)))