* scm/stencil.scm (fontify-text): reinstate function

[lilypond.git] / lily / book-paper-def.cc

diff --git a/lily/book-paper-def.cc b/lily/book-paper-def.cc
index 7aa837dc90fcef1852499f01068cf8a58bc2c0a9..1c4d048d6f147b624fd2ac3596ec3897254878ac 100644 (file)
--- a/lily/book-paper-def.cc
+++ b/lily/book-paper-def.cc
@@ -196,3 +196,18 @@ LY_DEFINE (ly_bookpaper_outputscale, "ly:bookpaper-outputscale",
   SCM_ASSERT_TYPE (b, bp, SCM_ARG1, __FUNCTION__, "bookpaper");
   return scm_make_real (b->output_scale_);
 }
+
+
+SCM
+Book_paper_def::lookup_variable (SCM sym) const
+{
+  SCM var = ly_module_lookup (scope_, sym);
+
+  return scm_variable_ref (var);
+}
+
+SCM
+Book_paper_def::c_variable (String s) const
+{
+  return lookup_variable (ly_symbol2scm (s.to_str0 ()));
+}