* lily/beam.cc (set_minimum_dy): new function. Round non-zero

[lilypond.git] / lily / scm-option.cc

diff --git a/lily/scm-option.cc b/lily/scm-option.cc
index 5a7c6cee19b8a8ce0b69802c552b3a1586119e4e..5da31ef2408e826859cccde458196c454a4ddbb0 100644 (file)
--- a/lily/scm-option.cc
+++ b/lily/scm-option.cc
@@ -61,7 +61,7 @@ LY_DEFINE (ly_option_usage, "ly:option-usage", 0, 0, 0, (SCM),
   puts ("");
   printf (_("  The function ly:set-option allows for access to some internal variables.").to_str0 ());
   puts ("\n");
-  printf (_ ("Usage: lilypond-bin -e \"(ly-set-option SYMBOL VAL)\"").to_str0 ());
+  printf (_ ("Usage: lilypond -e \"(ly:set-option SYMBOL VAL)\"").to_str0 ());
   puts ("\n");
   printf (_ ("Use help as  SYMBOL to get online help.").to_str0 ());
 
@@ -100,18 +100,18 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
 "@end table\n"
 "\n"
 "This function is useful to call from the command line: @code{lilypond -e\n"
-"\"(ly-set-option 'midi-debug #t)\"}.\n")
+"\"(ly:set-option 'midi-debug #t)\"}.\n")
 {
   if (val == SCM_UNDEFINED)
     val = SCM_BOOL_T;
 
   if (var == ly_symbol2scm ("help"))
-    /* lilypond -e "(ly-set-option 'help #t)" */
+    /* lilypond -e "(ly:set-option 'help #t)" */
     ly_option_usage (SCM_EOL);
   else if (var == ly_symbol2scm ("midi-debug"))
     midi_debug_global_b = to_boolean (val);
   else if (var == ly_symbol2scm ("testing-level"))
-    testing_level_global = ly_scm2int (val);
+    testing_level_global = scm_to_int (val);
   else if (var == ly_symbol2scm ("parse-protect" ))
     parse_protect_global = to_boolean (val);
   else if (var == ly_symbol2scm ("internal-type-checking"))
@@ -124,14 +124,13 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
     }
   else if (var == ly_symbol2scm ("new-relative"))
     lily_1_8_relative = false;
-  else if (var == ly_symbol2scm ("debug-beam"))
+  else
     {
-      extern bool debug_beam_quanting_flag;
-      debug_beam_quanting_flag = true;
+      if (scm_is_symbol (var))
+       var = scm_symbol_to_string (var);
+      
+      warning (_f ("No such internal option: %s", ly_scm2string (var)));
     }
-  else
-    warning (_f ("No such internal option: %s", ly_scm2string (var)));
-
   return SCM_UNSPECIFIED;
 }