From 5602d8fbc4f7158940ed51c779a675d8a16869c3 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 20 Apr 2022 20:05:52 -0400 Subject: [PATCH] REF remove dead code --- local/lib/org-x/org-x-dag.el | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el index 0e958a9..a743bf9 100644 --- a/local/lib/org-x/org-x-dag.el +++ b/local/lib/org-x/org-x-dag.el @@ -1446,25 +1446,6 @@ used for optimization." (add-planned id ht-q q) (add-planned id ht-s s)))))))) -;; (defun org-x-dag-ht-map-down-M (adjlist h-key ns get-fun set-fun def-fun) -;; (declare (indent 3)) -;; (cl-labels -;; ((propagate -;; (adjlist htbl id to-set) -;; (->> (-if-let (node (ht-get htbl id)) -;; (either>>= node (funcall set-fun it to-set)) -;; (either :right (funcall def-fun to-set))) -;; (ht-set htbl id)) -;; (--each (org-x-dag-get-children adjlist id) -;; (propagate adjlist htbl it to-set)))) -;; (let ((h (alist-get h-key ns))) -;; (-each (ht-keys h) -;; (lambda (id) -;; (-when-let (xs (funcall get-fun h id)) -;; (--each (org-x-dag-get-children adjlist id) -;; (propagate adjlist h it xs))))) -;; ns))) - (defun org-x-dag-ht-map-down (adjlist h-key ns get-fun set-fun def-fun) "Map a network status of a node to its descendents.