(print): remove neutral position.

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

diff --git a/lily/scm-option.cc b/lily/scm-option.cc
index de3deb00051dc9463fe2c0259324b7356d59e7ce..4cff8e63aea34c02dda650d4ed83980c28cc66ab 100644 (file)
--- a/lily/scm-option.cc
+++ b/lily/scm-option.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2001--2003  Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2001--2004  Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 #include <stdio.h>
@@ -92,9 +92,9 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
 "If protection is switched on, errors in inline scheme are caught in the parser. \n"
 "If off, GUILE will halt on errors, and give a stack trace. Default is protected evaluation. \n"
 "@item old-relative\n"
-"Relative for simultaneous functions similar to chord syntax\n"
+"Relative for simultaneous music functions similar to chord syntax\n"
 "@item new-relative\n"
-"Relative for simultaneous functions similar to sequential music\n"
+"Relative for simultaneous music functions similar to sequential music\n"
 "@end table\n"
 "\n"
 "This function is useful to call from the command line: @code{lilypond -e\n"
@@ -118,7 +118,7 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
     }
   else if (var == ly_symbol2scm ("parse-protect" ))
     {
-      parse_protect_global = to_boolean(val);
+      parse_protect_global = to_boolean (val);
     }
   else if (var == ly_symbol2scm ("internal-type-checking"))
     {
@@ -133,6 +133,11 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
     {
       lily_1_8_relative = false;
     }
+  else if (var == ly_symbol2scm ("debug-beam"))
+    {
+      extern bool debug_beam_quanting_flag;
+      debug_beam_quanting_flag = true;
+    }
   else
     {
       warning (_("Unknown internal option!"));