From 7eabfd71691d01bbcda34f9a8921d4b555942cd6 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Sun, 12 Jan 2003 22:22:36 +0000 Subject: [PATCH] (finish_primitive): compile fixes. --- lily/vaticana-ligature-engraver.cc | 2 +- lily/vaticana-ligature.cc | 2 +- scm/grob-property-description.scm | 2 ++ 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lily/vaticana-ligature-engraver.cc b/lily/vaticana-ligature-engraver.cc index 8445d2c7fb..c6c0a635fe 100644 --- a/lily/vaticana-ligature-engraver.cc +++ b/lily/vaticana-ligature-engraver.cc @@ -108,7 +108,7 @@ Vaticana_ligature_engraver::finish_primitive (Item *first_primitive, * Save the head's final shape and x-offset. */ primitive->set_grob_property ("glyph-name", - ly_symbol2scm (glyph_name.to_str0 ())); + scm_makfrom0str (glyph_name.to_str0 ())); primitive->set_grob_property ("x-offset", gh_double2scm (x_offset)); diff --git a/lily/vaticana-ligature.cc b/lily/vaticana-ligature.cc index 22abd222d6..916c20e3d8 100644 --- a/lily/vaticana-ligature.cc +++ b/lily/vaticana-ligature.cc @@ -168,7 +168,7 @@ vaticana_brew_primitive (Grob *me, bool ledger_take_space) return Molecule (); } - String glyph_name = ly_symbol2string (glyph_name_scm); + String glyph_name = ly_scm2string (glyph_name_scm); if (!String::compare (glyph_name, "")) { // empty head (typically, this is the right side of porrectus diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm index ff9eb8b120..30fe731dea 100644 --- a/scm/grob-property-description.scm +++ b/scm/grob-property-description.scm @@ -144,6 +144,8 @@ square of the inner notes involved.") (grob-property-description 'columns grob-list? "list of grobs, typically containing paper-columns.") (grob-property-description 'conditional-elements grob-list? "Internal use only") +(grob-property-description 'context-info integer? "DOCME") + (grob-property-description 'control-points list? "List of 4 offsets (number-pairs) that form control points for the tie/slur shape.") (grob-property-description 'damping integer? "amount of beam slope damping should beam slope be damped? 0: no, 1: yes, 100000: horizontal beams .") (grob-property-description 'dash-length number? "the length of a dash.") -- 2.39.5