release: 0.0.70pre

[lilypond.git] / flower / include / list.tcc

diff --git a/flower/include/list.tcc b/flower/include/list.tcc
index e3fa43cdd3346677a03e2a16097832bd86e69857..4c83034d822ff02050f6ea6754577c7276c86150 100644 (file)
--- 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.