]> git.donarmstrong.com Git - lilypond.git/commitdiff
foo
authorHan-Wen Nienhuys <hanwen@xs4all.nl>
Thu, 20 Jun 2002 23:42:34 +0000 (23:42 +0000)
committerHan-Wen Nienhuys <hanwen@xs4all.nl>
Thu, 20 Jun 2002 23:42:34 +0000 (23:42 +0000)
lily/include/lily-guile.hh
lily/separating-group-spanner.cc
lily/system.cc

index c9b0ee0e6220a03e669b951c04fef7325dac97e3..4930b4fec728e67a866f8e30018fff1bd13951a2 100644 (file)
@@ -9,8 +9,6 @@
 #ifndef LILY_GUILE_HH
 #define LILY_GUILE_HH
 
-#define SCM_VOIDP_TEST
-
 
 /*
   TODO: the  GH interface is deprecated as of GUILE 1.6
index 992dba8d63b8dbaac975fcd252e310eee4c9e3bd..db22eaa86e7873cae746c8cb0370f903e2842ca8 100644 (file)
@@ -105,25 +105,6 @@ Separating_group_spanner::set_spacing_rods (SCM smob)
        find_rods (rb, ly_cdr (s));
     }
 
-#if 0
-  /*
-    TODO; restore this.
-   */
-  /*
-    We've done our job, so we get lost. 
-   */
-  for (SCM s = me->get_grob_property ("elements"); gh_pair_p (s); s = ly_cdr (s))
-    {
-      Item * it =dynamic_cast<Item*> (unsmob_grob (ly_car (s)));
-      if (it && it->broken_b ())
-       {
-         it->find_prebroken_piece (LEFT) ->suicide ();
-         it->find_prebroken_piece (RIGHT)->suicide ();
-       }
-      it->suicide ();
-    }
-  me->suicide ();
-#endif
   return SCM_UNSPECIFIED ;
 }
 
index 692b1f11ee8b34533a42a2f5b1d558cd1fd47d6f..46cd931b025b003d6917c000ad816722491c6472 100644 (file)
@@ -61,7 +61,18 @@ System::output_lines ()
     {
       Grob * g = unsmob_grob (ly_car (s));
       if (Spacing_interface::has_interface (g))
-       g->suicide ();
+       {
+         /*
+           Kill no longer needed grobs. 
+          */
+         Item * it = dynamic_cast<Item*> (g);
+         if (it && Item::breakable_b(it))
+           {
+             it->find_prebroken_piece (LEFT)->suicide();
+             it->find_prebroken_piece (RIGHT)->suicide();
+           }
+         g->suicide ();
+       }
       else
        g->do_break_processing ();
     }