From 60e6486425fd08ee69e3e383ca5183d058bca037 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 7 Nov 2006 19:08:09 +0100 Subject: [PATCH] use SCM_ASSERT_TYPE for graphing functions. --- lily/engraver.cc | 10 +++++----- lily/grob-property.cc | 11 ++++++----- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/lily/engraver.cc b/lily/engraver.cc index f66aff808c..b61850eb2f 100644 --- a/lily/engraver.cc +++ b/lily/engraver.cc @@ -98,12 +98,12 @@ LY_DEFINE (ly_set_grob_creation_callback, "ly:set-grob-creation-callback", "the grob to be created and the corresponding line number in the " "C++ source file.") { - if (!ly_is_procedure (cb)) - warning (_ ("not setting creation callback: not a procedure")); - else - creation_callback = cb; + SCM_ASSERT_TYPE(ly_is_procedure (cb), cb, SCM_ARG1, __FUNCTION__, + "procedure"); - return SCM_EOL; + creation_callback = cb; + + return SCM_UNSPECIFIED; } #endif 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 -- 2.39.5