class Grob_properties : public Simple_smob<Grob_properties>
{
public:
- static int print_smob (SCM, SCM, scm_print_state *);
SCM mark_smob ();
static const char type_p_name_[];
private:
return cooked_from_;
}
-int
-Grob_properties::print_smob (SCM /*smob*/, SCM port, scm_print_state *)
-{
- scm_puts ("#<Grob_properties>", port);
-
- return 1;
-}
-
LY_DEFINE (ly_make_grob_properties, "ly:make-grob-properties",
1, 0, 0, (SCM alist),
"This packages the given property list @var{alist} in"