FIX typo
This commit is contained in:
parent
77e4939a7d
commit
2fa40b763f
|
@ -398,7 +398,7 @@ Return a DAG object."
|
||||||
(if (not (or to-remove to-insert)) dag
|
(if (not (or to-remove to-insert)) dag
|
||||||
(-let* ((to-remove* (-difference to-remove (-map #'car to-insert)))
|
(-let* ((to-remove* (-difference to-remove (-map #'car to-insert)))
|
||||||
((&plist :adjlist a :broken-edges b) dag)
|
((&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*)))
|
((a** b**) (dag--adjlist-insert-nodes to-insert a* b*)))
|
||||||
(dag--create a** b**))))
|
(dag--create a** b**))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue