REF remove dead code

local/lib/org-x/org-x-dag.el

@@ -1236,12 +1236,6 @@ A date like (YEAR MONTH DAY).")
   (save-excursion (outline-next-heading)))
 
 (defun org-x-dag-get-parent-links (start end)
-  (cl-flet
-      ((match-id
-        (s)
-        (-some->> (s-match "id:\\([^][]\\{36\\}\\)" s)
-          (cadr)
-          (substring-no-properties))))
   (save-excursion
     (when start
       (goto-char start))
@@ -1252,7 +1246,7 @@ A date like (YEAR MONTH DAY).")
           (when (string-match "id:\\([^][]\\{36\\}\\)" (car ss))
             (!cons (match-string-no-properties 1 (car ss)) acc))
           (!cdr ss))
-          acc)))))
+        acc))))
 
 (defun org-x-dag-line-regexp (kws)
   (let ((level-re "\\(\\*+\\)")