X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftranslator-ctors.cc;h=af33d78a2f006caed03ddf3b2d32e98cf6993734;hb=3879125ed65c285ff3094f2cad51a7bf1376e225;hp=7559bf30b4cd42304c685903bc37c2c42d4f3181;hpb=6887546c5caf87cdc94252c020f39b43a57bf057;p=lilypond.git

diff --git a/lily/translator-ctors.cc b/lily/translator-ctors.cc
index 7559bf30b4..af33d78a2f 100644
--- a/lily/translator-ctors.cc
+++ b/lily/translator-ctors.cc
@@ -67,8 +67,9 @@ LY_DEFINE (ly_translator_name, "ly:translator-name",
            "Return the type name of the translator definition @var{creator}."
            "  The name is a symbol.")
 {
-  SCM res = SCM_UNBNDP (SCM (global_translator_dict_rev)) ? SCM_BOOL_F
-    : scm_hashq_ref (global_translator_dict_rev, creator, SCM_BOOL_F);
+  SCM res = global_translator_dict_rev.is_bound ()
+    ? scm_hashq_ref (global_translator_dict_rev, creator, SCM_BOOL_F)
+    : SCM_BOOL_F;
   SCM_ASSERT_TYPE (scm_is_pair (res),
                    creator, SCM_ARG1, __FUNCTION__, "translator definition");
   return scm_car (res);
@@ -78,8 +79,9 @@ LY_DEFINE (ly_translator_description, "ly:translator-description",
            1, 0, 0, (SCM creator),
            "Return an alist of properties of translator definition @var{creator}.")
 {
-  SCM res = SCM_UNBNDP (SCM (global_translator_dict_rev)) ? SCM_BOOL_F
-    : scm_hashq_ref (global_translator_dict_rev, creator, SCM_BOOL_F);
+  SCM res = global_translator_dict_rev.is_bound ()
+    ? scm_hashq_ref (global_translator_dict_rev, creator, SCM_BOOL_F)
+    : SCM_BOOL_F;
   SCM_ASSERT_TYPE (scm_is_pair (res),
                    creator, SCM_ARG1, __FUNCTION__, "translator definition");
   return scm_cdr (res);