From fc92c32530e594b6548073f28c526918d2a8b6a4 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Wed, 30 Mar 2022 18:16:01 -0400
Subject: [PATCH] REF delete dead code

---
 local/lib/org-x/org-x-dag.el | 32 ++++----------------------------
 1 file changed, 4 insertions(+), 28 deletions(-)

diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el
index 3846fbd..324ff5d 100644
--- a/local/lib/org-x/org-x-dag.el
+++ b/local/lib/org-x/org-x-dag.el
@@ -2223,32 +2223,6 @@ used for optimization."
     (lambda (to-set)
       (list s-key to-set))))
 
-  ;; (cl-labels
-  ;;     ((get-children
-  ;;       (adjlist id)
-  ;;       (->> (plist-get (ht-get adjlist id) :children)
-  ;;            (--filter (-> (ht-get adjlist it)
-  ;;                          (plist-get :node-meta)
-  ;;                          (plist-get :buffer-parent)
-  ;;                          (equal id)))))
-  ;;      (propagate
-  ;;       (adjlist htbl id set-key to-set)
-  ;;       (--each (get-children adjlist id)
-  ;;         (->> (-if-let (node (ht-get htbl it))
-  ;;                  (org-x-dag-bs-fmap node
-  ;;                    (org-x-dag-plist-map it set-key
-  ;;                      (lambda (x) (append x to-set))))
-  ;;                (org-x-dag-bs :valid `(,set-key ,to-set)))
-  ;;              (ht-set htbl it))
-  ;;         (propagate adjlist htbl it set-key to-set))))
-  ;;   (let ((h (alist-get h-key ns)))
-  ;;     (-each (ht-keys h)
-  ;;       (lambda (id)
-  ;;         (-when-let (xs (org-x-dag-ht-get-maybe h id s-key))
-  ;;           (--each (get-children adjlist id)
-  ;;             (propagate adjlist h it s-key xs)))))
-  ;;     ns)))
-
 (defun org-x-dag-ht-propagate-up (adjlist h-key s-key ns)
   (cl-labels
       ((get-children
@@ -2295,6 +2269,7 @@ used for optimization."
                            (org-x-dag-plist-cons acc key link))
                          nil
                          links)))
+    ;; add all links to the network status object (ew side effects)
     (org-x-dag-ns-ltg adjlist l ns)
     (org-x-dag-ns-svg adjlist s ns)
     (org-x-dag-ns-epg adjlist e ns)
@@ -2302,6 +2277,7 @@ used for optimization."
     (org-x-dag-ns-wkp adjlist w ns)
     (org-x-dag-ns-action adjlist a ns)
     (org-x-dag-ns-dlp adjlist d ns)
+    ;; propagate network statuses across each buffer tree as needed
     (org-x-dag-ht-propagate-down adjlist :action :planned ns)
     (org-x-dag-ht-map-down adjlist :action ns
       (lambda (h id)
@@ -2322,8 +2298,8 @@ used for optimization."
     (org-x-dag-ht-propagate-down adjlist :endpoint :committed ns)
     (org-x-dag-ht-propagate-up adjlist :lifetime :fulfilled ns)
     (org-x-dag-ht-propagate-up adjlist :lifetime :planned ns)
-    (org-x-dag-ht-propagate-up adjlist :survival :planned ns)
-    (org-x-dag-ht-propagate-up adjlist :survival :fulfilled ns)))
+    (org-x-dag-ht-propagate-up adjlist :survival :fulfilled ns)
+    (org-x-dag-ht-propagate-up adjlist :survival :planned ns)))
 
 
 ;;; DAG SYNCHRONIZATION/CONSTRUCTION