source file of the GNU LilyPond music typesetter
- (c) 2006--2008 Han-Wen Nienhuys <hanwen@lilypond.org>
+ (c) 2006--2009 Han-Wen Nienhuys <hanwen@lilypond.org>
2007--2008 Rune Zedeler
2008 Joe Neeman <joeneeman@gmail.com>
*/
"Get the global default scale.")
{
return default_global_scale
- ? SCM_BOOL_F
- : default_global_scale->self_scm ();
+ ? default_global_scale->self_scm ()
+ : SCM_BOOL_F;
}
}
int
-Scale::print_smob (SCM x, SCM port, scm_print_state *)
+Scale::print_smob (SCM /* x */,
+ SCM port,
+ scm_print_state *)
{
- (void) x;
-
scm_puts ("#<Scale>", port);
return 1;
}
-
SCM
-Scale::mark_smob (SCM x)
+Scale::mark_smob (SCM)
{
- (void) x;
return SCM_UNSPECIFIED;
}