- {
- SCM pos = scm_caddr (defn);
- SCM style = scm_car (defn);
- SCM script = scm_cadr (defn);
-
- if (scm_integer_p (pos) == SCM_BOOL_T)
- note->set_property ("staff-position", pos);
- if (scm_is_symbol (style))
- note->set_property ("style", style);
-
- if (scm_is_string (script))
- {
- Item *p = make_item ("Script", ev->self_scm ());
- make_script_from_event (p, context (), script,
- 0);
-
- p->set_parent (note, Y_AXIS);
- Side_position_interface::add_support (p, note);
- scripts_.push_back (p);
- }
- }
-
- notes_.push_back (note);
+ {
+ SCM pos = scm_caddr (defn);
+ SCM style = scm_car (defn);
+ SCM script = scm_cadr (defn);
+
+ if (scm_is_integer (pos))
+ note->set_property ("staff-position", pos);
+ if (scm_is_symbol (style))
+ note->set_property ("style", style);
+
+ if (scm_is_string (script))
+ {
+ Item *p = make_item ("Script", ev->self_scm ());
+ make_script_from_event (p, context (), script,
+ 0);
+
+ p->set_parent (note, Y_AXIS);
+ Side_position_interface::add_support (p, note);
+ scripts_.push_back (p);
+ }
+ }