(AncientRemoveEmptyStaffContext): switch on

[lilypond.git] / lily / text-interface.cc

diff --git a/lily/text-interface.cc b/lily/text-interface.cc
index 7a4dcc18998e4993e38b2ceaf962865e7ee719de..a940c4e452b5f1b48f33af4826e92d3a6786868c 100644 (file)
--- a/lily/text-interface.cc
+++ b/lily/text-interface.cc
@@ -55,8 +55,10 @@ Text_interface::interpret_markup (SCM layout_smob, SCM props, SCM markup)
     }
   else
     {
-      programming_error ("not a markup: ");
+      programming_error ("Object is not a markup. ");
+      scm_puts ("This object should be a markup: ", scm_current_error_port ());
       scm_display (markup, scm_current_error_port ());
+      scm_puts ("\n", scm_current_error_port ());
 
       Box b;
       b[X_AXIS].set_empty ();