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;
}
SCM sym = scm_car (s);
SCM val = scm_cadr (s);
- pr->set_property (sym, val);
+ pr->internal_set_property (sym, val);
}
return pr->unprotect ();