X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscale.cc;h=5d8ccc9a38f9edb7467a9f53f9dc78c7705c6b77;hb=e34621159931fdbc7dff10973c2bc9ca38ab024c;hp=c9fa8b7f22afc7499a1782a0f956122eb3e804d4;hpb=474c8729dc274a30558102a015a01fa5882673db;p=lilypond.git

diff --git a/lily/scale.cc b/lily/scale.cc
index c9fa8b7f22..5d8ccc9a38 100644
--- a/lily/scale.cc
+++ b/lily/scale.cc
@@ -17,7 +17,7 @@
 */
 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);
 
@@ -66,9 +66,9 @@ LY_DEFINE (ly_set_default_scale, "ly:set-default-scale",
 	   1, 0, 0, (SCM scale),
 	   "Set the global default scale.")
 {
-  Scale *s = Scale::unsmob (scale);
-  SCM_ASSERT_TYPE (s, scale, SCM_ARG1, __FUNCTION__, "scale");
+  LY_ASSERT_SMOB (Scale, scale, 1);
 
+  Scale *s = Scale::unsmob (scale);
   if (default_global_scale)
     default_global_scale->unprotect ();
   default_global_scale = s;
@@ -111,5 +111,5 @@ Scale::~Scale ()
 {
 }
 
-IMPLEMENT_SMOBS(Scale);
-IMPLEMENT_DEFAULT_EQUAL_P(Scale);
+IMPLEMENT_SMOBS (Scale);
+IMPLEMENT_DEFAULT_EQUAL_P (Scale);