X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fprob-scheme.cc;h=ceadabdd69241283b98549d2c269a3e89e302aec;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=bfa355d9a2a616455fe805cb4d2b33223f889347;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git

diff --git a/lily/prob-scheme.cc b/lily/prob-scheme.cc
index bfa355d9a2..ceadabdd69 100644
--- a/lily/prob-scheme.cc
+++ b/lily/prob-scheme.cc
@@ -16,7 +16,7 @@ LY_DEFINE (ly_prob_set_property_x, "ly:prob-set-property!",
   SCM_ASSERT_TYPE (ps, obj, SCM_ARG1, __FUNCTION__, "Prob");
   SCM_ASSERT_TYPE (scm_is_symbol (sym), sym, SCM_ARG2, __FUNCTION__, "symbol");
 
-  ps->set_property (sym, value);
+  ps->internal_set_property (sym, value);
   return SCM_UNSPECIFIED;
 }
 
@@ -70,7 +70,7 @@ LY_DEFINE (ly_make_prob, "ly:make-prob",
       SCM sym = scm_car (s);
       SCM val = scm_cadr (s);
 
-      pr->set_property (sym, val);
+      pr->internal_set_property (sym, val);
     }
   
   return pr->unprotect ();