]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/font-interface.cc
release: 1.5.36
[lilypond.git] / lily / font-interface.cc
index c0f77578236b756ebb208099c68566972b8b13f7..c5c32c2337d2f2df2b08694af97e1786226a718c 100644 (file)
@@ -69,12 +69,7 @@ SCM
 ly_font_interface_get_default_font (SCM grob)
 {
   Grob * gr  = unsmob_grob (grob);
-
-  if (!gr)
-    {
-      warning ("ly_font_interface_get_default_font (): invalid argument");
-      return SCM_UNDEFINED;
-    }
+  SCM_ASSERT_TYPE(gr, grob, SCM_ARG1, __FUNCTION__, "grob");
 
   return Font_interface::get_default_font (gr)->self_scm ();
 }