* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

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

diff --git a/lily/scm-option.cc b/lily/scm-option.cc
index aac158ba9202806c64a5bbe3bfb9a717cc8491e0..a3d87f7e7aa84d52773eb4387847eaeee53f438d 100644 (file)
--- a/lily/scm-option.cc
+++ b/lily/scm-option.cc
@@ -114,7 +114,7 @@ LY_DEFINE (ly_set_option, "ly:set-option", 1, 1, 0, (SCM var, SCM val),
     }
   else if (var == ly_symbol2scm ("testing-level"))
     {
-     testing_level_global = gh_scm2int (val); 
+     testing_level_global = ly_scm2int (val); 
     }
   else if (var == ly_symbol2scm ("parse-protect" ))
     {
@@ -161,15 +161,15 @@ LY_DEFINE (ly_get_option, "ly:get-option", 1, 0, 0, (SCM var),
 {
   if (var == ly_symbol2scm ("old-relative-used"))
     {
-      return gh_bool2scm (lily_1_8_compatibility_used);
+      return ly_bool2scm (lily_1_8_compatibility_used);
     }
   if (var == ly_symbol2scm ("old-relative"))
     {
-      return gh_bool2scm (lily_1_8_relative);
+      return ly_bool2scm (lily_1_8_relative);
     }
   if (var == ly_symbol2scm ("verbose"))
     {
-      return gh_bool2scm (verbose_global_b);
+      return ly_bool2scm (verbose_global_b);
     }  
   else
     {