]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/prob-scheme.cc
Replace C++ (in)equality checks with proper SCM syntax
[lilypond.git] / lily / prob-scheme.cc
index a57cb7aa9ffe6418f0eea1d7f334c897256d4f36..82e4fbdca3a7f9b87c618b071ade67a369522bd8 100644 (file)
@@ -51,11 +51,11 @@ LY_DEFINE (ly_prob_property, "ly:prob-property",
   Prob *ps = Prob::unsmob (prob);
   LY_ASSERT_TYPE (ly_is_symbol, sym, 2);
 
-  if (val == SCM_UNDEFINED)
+  if (SCM_UNBNDP (val))
     val = SCM_EOL;
 
   SCM retval = ps->get_property (sym);
-  if (retval == SCM_EOL)
+  if (scm_is_null (retval))
     return val;
   else
     return retval;