From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 18 Jan 2007 02:04:25 +0000 (+0100)
Subject: plug small leak.
X-Git-Tag: release/2.11.13-1~26
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=68807466e80ac1eede1507c2b6a482d80b19d116;p=lilypond.git

plug small leak.
---

diff --git a/lily/accidental-placement.cc b/lily/accidental-placement.cc
index 323fa7d6f3..cbc1478608 100644
--- a/lily/accidental-placement.cc
+++ b/lily/accidental-placement.cc
@@ -397,8 +397,8 @@ Accidental_placement::calc_positioning_done (SCM smob)
   Real padding = robust_scm2double (me->get_property ("padding"), 0.2);
 
   Skyline left_skyline = head_ape->left_skyline_;
-  left_skyline.raise (-robust_scm2double (me->get_property ("right-padding"), 0))
-;
+  left_skyline.raise (-robust_scm2double (me->get_property ("right-padding"), 0));
+  
   /*
     Add accs entries right-to-left.
   */
@@ -442,9 +442,10 @@ Accidental_placement::calc_positioning_done (SCM smob)
   me->flush_extent_cache (X_AXIS);
   me->set_property ("X-extent", scm_width);
 
-  for (vsize i = apes.size (); i--;)
-    delete apes[i];
+  junk_pointers (apes);
 
+  delete head_ape;
+  
   return SCM_BOOL_T;
 }