X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fpango-font.cc;h=fcdf958cef2ff3c5c1737c33765aa2de1e60d574;hb=e0af94bb8939bc6f4998db6294010baa77139092;hp=762e0842f3db9a6889ba8ebd85c9de99bd04944f;hpb=237343567335e54017c40545dc2e20fb3eca50fa;p=lilypond.git

diff --git a/lily/pango-font.cc b/lily/pango-font.cc
index 762e0842f3..fcdf958cef 100644
--- a/lily/pango-font.cc
+++ b/lily/pango-font.cc
@@ -440,8 +440,8 @@ Pango_font::text_stencil (Output_def * /* state */,
         variable that is bound to a *named* procedure, i.e. not a
         lambda expression.
       */
-      if (utf8_string != SCM_BOOL_F
-          && scm_procedure_name (SCM_VARIABLE_REF (utf8_string)) != SCM_BOOL_F)
+      if (scm_is_true (utf8_string)
+          && scm_is_true (scm_procedure_name (SCM_VARIABLE_REF (utf8_string))))
         has_utf8_string = true;
     }