#15 Incorrect behavior in purging a list (2)

[Chris Henrich]

In bc-containers-lists-double.adb, in
procedure Purge(L : in out List; From : Positive; Couont : Positive),
the line "Delete(Ptr);}, which is intended to reclaim inaccessible items, is incorrectly made conditional upon Curr being not null. It should be done even if Curr is null.