/*
- font-size-engraver.cc -- implement Font_size_engraver
+ font-size-engraver.cc -- implement Font_size_engraver
source file of the GNU LilyPond music typesetter
- (c) 2001--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2001--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
if (gi.origin_trans_->context () != context ())
return ;
- if (ly_c_number_p (sz) && scm_to_double (sz))
+ if (scm_is_number (sz) && scm_to_double (sz))
{
Real font_size = scm_to_double (sz);
}
-ENTER_DESCRIPTION (Font_size_engraver,
+ADD_TRANSLATOR (Font_size_engraver,
/* descr */ "Puts fontSize into font-relative-size grob property.",
/* creats*/ "",
/* accepts */ "",