X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob-property.cc;h=f1242994d53fb696133cbedfc6e6b2bc1b9336ce;hb=45e73c21395bfa26f928c216fc6ee72fc9fa68d9;hp=707f4c118aa6953604417bd039614e6cbb85e2de;hpb=82c6e5889b1c3f79b818de896904bb50a399580b;p=lilypond.git

diff --git a/lily/grob-property.cc b/lily/grob-property.cc
index 707f4c118a..f1242994d5 100644
--- a/lily/grob-property.cc
+++ b/lily/grob-property.cc
@@ -32,11 +32,12 @@ LY_DEFINE (ly_set_grob_modification_callback, "ly:set-grob-modification-callback
 	   "which the modification was requested, the property to be changed and "
 	   "the new value for the property.")
 {
-  if (!ly_is_procedure (cb))
-    warning (_ ("not setting modification callback: not a procedure"));
-  else
-    modification_callback = cb;
-  return SCM_EOL;
+
+  SCM_ASSERT_TYPE(ly_is_procedure (cb), cb, SCM_ARG1, __FUNCTION__,
+		  "procedure");
+
+  modification_callback = cb;
+  return SCM_UNSPECIFIED;
 }
 #endif