fixes compiler.lists.bringToFront

This commit is contained in:
fowlmouth 2013-12-02 23:47:56 -06:00
commit 4f0eeaa55e

View file

@ -91,6 +91,10 @@ proc Remove*(list: var TLinkedList, entry: PListEntry) =
if entry.prev != nil: entry.prev.next = entry.next if entry.prev != nil: entry.prev.next = entry.next
proc bringToFront*(list: var TLinkedList, entry: PListEntry) = proc bringToFront*(list: var TLinkedList, entry: PListEntry) =
when true:
list.remove entry
list.prepend entry
else:
if entry == list.head: return if entry == list.head: return
if entry == list.tail: list.tail = entry.prev if entry == list.tail: list.tail = entry.prev
if entry.next != nil: entry.next.prev = entry.prev if entry.next != nil: entry.next.prev = entry.prev