From 6110f2dded7c6f4907b6c35903bf787ef90fc9d7 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Sun, 24 Mar 2002 19:40:55 +0000
Subject: [PATCH] lilypond-0.0.70pre

---
 flower/include/list.tcc | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/flower/include/list.tcc b/flower/include/list.tcc
index e3fa43cdd3..4c83034d82 100644
--- a/flower/include/list.tcc
+++ b/flower/include/list.tcc
@@ -39,15 +39,21 @@ List<T>::OK() const
     assert(!lp);
 }
 
-
 template<class T>
-List<T>::~List()
+void
+List<T>::junk_links()
 {
     Cursor<T> c(*this);
     while (c.ok())
 	c.del();
 }
 
+template<class T>
+List<T>::~List()
+{
+    junk_links();
+}
+
 /** 
 
   add after after_me.
-- 
2.39.5