*/
LY_DEFINE (ly_make_scale, "ly:make-scale",
1, 0, 0, (SCM steps),
- "Create a scale. Takes a vector of ints as argument")
+ "Create a scale. Takes a vector of integers as argument.")
{
bool type_ok = scm_is_vector (steps);
1, 0, 0, (SCM scale),
"Set the global default scale.")
{
- LY_ASSERT_FIRST_SMOB (Scale, scale);
+ LY_ASSERT_SMOB (Scale, scale, 1);
Scale *s = Scale::unsmob (scale);
if (default_global_scale)
{
}
-IMPLEMENT_SMOBS(Scale);
-IMPLEMENT_DEFAULT_EQUAL_P(Scale);
+IMPLEMENT_SMOBS (Scale);
+IMPLEMENT_DEFAULT_EQUAL_P (Scale);