fix error message

[lilypond.git] / lily / scale.cc

diff --git a/lily/scale.cc b/lily/scale.cc
index 4ba1a5bc2c5f11ab7ea5aa9dd05dca56488060e8..ecd2b9357edb3a2ea4aec7c8ed10405c9008eb05 100644 (file)
--- a/lily/scale.cc
+++ b/lily/scale.cc
@@ -66,7 +66,7 @@ LY_DEFINE (ly_set_default_scale, "ly:set-default-scale",
           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)
@@ -111,5 +111,5 @@ Scale::~Scale ()
 {
 }
 
-IMPLEMENT_SMOBS(Scale);
-IMPLEMENT_DEFAULT_EQUAL_P(Scale);
+IMPLEMENT_SMOBS (Scale);
+IMPLEMENT_DEFAULT_EQUAL_P (Scale);