}
void
-Grob::warning (String s)
+Grob::warning (String s)const
{
SCM cause = self_scm();
while (cause != SCM_EOL && !unsmob_music (cause))
}
else
::warning (s);
-
+}
+
+void
+Grob::programming_error (String s)const
+{
+ s = "Programming error: " + s;
+ warning (s);
}