X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fspanner-scheme.cc;h=b364f48177cbd9b9af867e802be4b333eecf478a;hb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;hp=4c77ccc01a3fc09442bb774788a98ee4e2797b38;hpb=9066eeede909ace56324c905217c5b585ba42f90;p=lilypond.git diff --git a/lily/spanner-scheme.cc b/lily/spanner-scheme.cc index 4c77ccc01a..b364f48177 100644 --- a/lily/spanner-scheme.cc +++ b/lily/spanner-scheme.cc @@ -1,7 +1,7 @@ /* This file is part of LilyPond, the GNU music typesetter. - Copyright (C) 2007--2014 Han-Wen Nienhuys + Copyright (C) 2007--2015 Han-Wen Nienhuys LilyPond is free software: you can redistribute it and/or modify @@ -26,7 +26,7 @@ LY_DEFINE (ly_spanner_bound, "ly:spanner-bound", "Get one of the bounds of @var{spanner}. @var{dir} is @w{@code{-1}}" " for left, and @code{1} for right.") { - LY_ASSERT_TYPE (Spanner::unsmob, spanner, 1); + LY_ASSERT_SMOB (Spanner, spanner, 1); LY_ASSERT_TYPE (is_direction, dir, 2); Item *bound = Spanner::unsmob (spanner)->get_bound (to_dir (dir)); return bound ? bound->self_scm () : SCM_EOL; @@ -37,9 +37,9 @@ LY_DEFINE (ly_spanner_set_bound_x, "ly:spanner-set-bound!", "Set grob @var{item} as bound in direction @var{dir} for" " @var{spanner}.") { - LY_ASSERT_TYPE (Spanner::unsmob, spanner, 1); + LY_ASSERT_SMOB (Spanner, spanner, 1); LY_ASSERT_TYPE (is_direction, dir, 2); - LY_ASSERT_TYPE (Item::unsmob, item, 3); + LY_ASSERT_SMOB (Item, item, 3); Spanner::unsmob (spanner)->set_bound (to_dir (dir), Item::unsmob (item)); return SCM_UNSPECIFIED;