From 1e384f20267ed220088781acbddcc7e882dc50ce Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Sun, 27 Mar 2022 13:26:40 -0400 Subject: [PATCH] REF remove dead code --- local/lib/org-x/org-x-dag.el | 26 -------------------------- 1 file changed, 26 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index 329afa2..b9a88ca 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -1601,32 +1601,6 @@ used for optimization." (t task-default)))))) -(defun org-x-dag-bs-action-subiter-todo-rank (si-a si-b) - (pcase `(,si-a ,si-b) - (`((:si-active (,ts-a ,dead-a)) (:si-active (,ts-b ,dead-b))) - (let ((dt-a (org-ml-timestamp-get-start-time ts-a)) - (dt-b (org-ml-timestamp-get-start-time ts-b))) - (cond - ((not (eq dead-a dead-b)) - (->> "All sub-iter timestamps must be scheduled or deadlined" - (org-x-dag-bs :error))) - ((xor (org-ml-time-is-long dt-a) (org-ml-time-is-long dt-b)) - (->> "All sub-iter timestamps must be long or short" - (org-x-dag-bs :error))) - (t - ;; ASSUME this won't fail since the datetimes are assumed to be the - ;; same length as per rules above - (org-x-dag-bs :valid (org-x-dag-datetime< dt-a dt-b)))))) - (`((:si-active ,_) ,_) (org-x-dag-bs :valid nil)) - (`(,_ (:si-active ,_)) (org-x-dag-bs :valid t)))) - -(defun org-x-dag-bs-action-subiter-complete-rank (si-a si-b) - (->> (pcase `(,si-a ,si-b) - (`((:si-complete ,_) (:si-complete ,_)) nil) - (`((:si-complete ,_) ,_) t) - (`(,_ (:si-complete ,_)) nil)) - (org-x-dag-bs :valid))) - (defun org-x-dag-node-data-is-iterator-p (node-data) (-let (((&plist :props) node-data)) (-when-let (p (alist-get org-x-prop-parent-type props nil nil #'equal))