#define PROPERTY_OBJECT_HH
#include "stencil.hh"
+#include "virtual-methods.hh"
+
/*
A formatted "system" (A block of titling also is a Property_object)
*/
class Prob
{
- DECLARE_SMOBS (Prob,);
+ DECLARE_SMOBS (Prob);
DECLARE_CLASSNAME(Prob);
void init_vars ();
SCM type () const { return type_; }
SCM get_property_alist (bool mutble) const;
SCM internal_get_property (SCM sym) const;
+
+#ifndef NDEBUG
+ void internal_set_property (SCM sym, SCM val, const char *file, int line, char const *fun);
+#else
void internal_set_property (SCM sym, SCM val);
+#endif
};
DECLARE_UNSMOB(Prob,prob);
SCM ly_prob_set_property_x (SCM system, SCM sym, SCM value);