- return gh_double2scm (get_realvar (sym));
-}
-
-Real
-Paper_def::get_realvar (SCM s) const
-{
- SCM val ;
- if (!variable_tab_->try_retrieve (s, &val))
- {
- programming_error ("unknown paper variable: " + ly_symbol2string (s));
- return 0.0;
- }
-
- Real sc = 1.0;
- SCM ssc;
- if (variable_tab_->try_retrieve (ly_symbol2scm ("outputscale"), &ssc))
- {
- sc = gh_scm2double (ssc);
- }
- if (gh_number_p (val))
- {
- return gh_scm2double (val) / sc;
- }
- else
+ SCM font_table = def->lookup_variable (ly_symbol2scm ("pango-fonts"));
+ if (scm_hash_table_p (font_table) != SCM_BOOL_T)