X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpointer-group-interface-scheme.cc;h=a111aad58c1d89cfb3fe81b779cb390a1699fe78;hb=b872748c6aa8bb721ced458691b38ac2fac5dfc8;hp=d9fe6ebe7c3bd1e11e59ccce0f8bfd307205a1f6;hpb=4a401ca1c60f428daa242dbdd102fdb3f327ebfb;p=lilypond.git diff --git a/lily/pointer-group-interface-scheme.cc b/lily/pointer-group-interface-scheme.cc index d9fe6ebe7c..a111aad58c 100644 --- a/lily/pointer-group-interface-scheme.cc +++ b/lily/pointer-group-interface-scheme.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2010--2011 Han-Wen Nienhuys + Copyright (C) 2010--2015 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -24,13 +24,13 @@ LY_DEFINE (ly_pointer_group_interface__add_grob, "ly:pointer-group-interface::ad 3, 0, 0, (SCM grob, SCM sym, SCM grob_element), "Add @var{grob-element} to @var{grob}'s @var{sym} grob array.") { - LY_ASSERT_TYPE (unsmob_grob, grob, 1); + LY_ASSERT_SMOB (Grob, grob, 1); LY_ASSERT_TYPE (ly_is_symbol, sym, 2); - LY_ASSERT_TYPE (unsmob_grob, grob_element, 3); + LY_ASSERT_SMOB (Grob, grob_element, 3); - Pointer_group_interface::add_grob (unsmob_grob (grob), + Pointer_group_interface::add_grob (unsmob (grob), sym, - unsmob_grob (grob_element)); + unsmob (grob_element)); return SCM_UNSPECIFIED; }