This commit is contained in:
Nathan Dwarshuis 2022-03-06 22:29:37 -05:00
parent 77e4939a7d
commit 2fa40b763f
1 changed files with 1 additions and 1 deletions

View File

@ -398,7 +398,7 @@ Return a DAG object."
(if (not (or to-remove to-insert)) dag
(-let* ((to-remove* (-difference to-remove (-map #'car to-insert)))
((&plist :adjlist a :broken-edges b) dag)
((a* b*) (dag--adjlist-remove-nodes to-remove a b))
((a* b*) (dag--adjlist-remove-nodes to-remove* a b))
((a** b**) (dag--adjlist-insert-nodes to-insert a* b*)))
(dag--create a** b**))))