From 720b2a7bd29334c1ecb9348c024a381d11253768 Mon Sep 17 00:00:00 2001
From: David Nalesnik <address@hidden>
Date: Fri, 21 Aug 2015 17:02:13 -0500
Subject: [PATCH] Suicide extra flags

---
 lily/flag.cc | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lily/flag.cc b/lily/flag.cc
index 4b90be8..0f5b011 100644
--- a/lily/flag.cc
+++ b/lily/flag.cc
@@ -115,6 +115,12 @@ Flag::print (SCM smob)
   Grob *me = unsmob<Grob> (smob);
   Grob *stem = me->get_parent (X_AXIS);
 
+  if (me != unsmob<Grob> (stem->get_object ("flag")))
+    {
+      me->suicide ();
+      return SCM_EOL;
+    }
+
   Direction d = get_grob_direction (stem);
   string flag_style;
 
-- 
1.9.1