+ return mol;
+}
+
+MAKE_SCHEME_CALLBACK (Stem_tremolo,print,1);
+SCM
+Stem_tremolo::print (SCM grob)
+{
+ Grob *me = unsmob_grob (grob);
+ Grob *stem = unsmob_grob (me->get_property ("stem"));
+ if (!stem)
+ {
+ programming_error ("No stem for stem-tremolo");
+ return SCM_EOL;
+ }
+
+ Spanner *beam = Stem::get_beam (stem);