X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fmark-engraver.cc;h=52a68359534fced1677bf1088d46d763ff7af96b;hb=563bb9fc1b7afd3543fe4ed9251d39a995db8737;hp=6eb7ee321de0054f6838d79f1725b81d4e229f6c;hpb=47db9a3883d726ca53e2133a3b2298f78dd6a32e;p=lilypond.git

diff --git a/lily/mark-engraver.cc b/lily/mark-engraver.cc
index 6eb7ee321d..52a6835953 100644
--- a/lily/mark-engraver.cc
+++ b/lily/mark-engraver.cc
@@ -140,8 +140,8 @@ Mark_engraver::process_music ()
           if (!scm_is_number (m))
             m = get_property ("rehearsalMark");
 
-          if (scm_integer_p (m) == SCM_BOOL_T
-              && scm_exact_p (m) == SCM_BOOL_T)
+          if (scm_is_integer (m)
+              && scm_is_true (scm_exact_p (m)))
             {
               int mark_count = scm_to_int (m);
               mark_count++;