Skip to content
Snippets Groups Projects
Commit ee793680 authored by wlott's avatar wlott
Browse files

Changed delete-unreferences-tns to only nuke the tn is it's :normal.

Therefore, :component tns will not be removed.
parent 6a853787
No related branches found
No related tags found
No related merge requests found
......@@ -50,7 +50,9 @@
`(let ((prev nil))
(do ((tn ,name (tn-next tn)))
((null tn))
(cond ((or (tn-reads tn) (tn-writes tn))
(cond ((or (not (eq (tn-kind tn) :normal))
(tn-reads tn)
(tn-writes tn))
(setq prev tn))
(t
(if prev
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment