X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fscale.cc;h=99cd6d91db8dacc686bf49558e0c41f302fdcbb3;hb=eeec992b7029d0982bf4ed0eb3995e9ca99c10e9;hp=9e39d8a99e83fa992a31c1be95fdb37a362c15ac;hpb=0387f04497978e37b335a8b99eec905499d6ad0f;p=lilypond.git

diff --git a/lily/scale.cc b/lily/scale.cc
index 9e39d8a99e..99cd6d91db 100644
--- a/lily/scale.cc
+++ b/lily/scale.cc
@@ -57,8 +57,8 @@ LY_DEFINE (ly_default_scale, "ly:default-scale",
 	   "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;
 }
 
 
@@ -121,19 +121,17 @@ Scale::normalize_step (int step) const
 }
 
 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;
 }