(finish_primitive): compile fixes.

diff --git a/lily/vaticana-ligature-engraver.cc b/lily/vaticana-ligature-engraver.cc
index 8445d2c7fbf25a5ad8efbf281235d513bc7209a9..c6c0a635fe04f61860a29b9aec59756a9670922c 100644 (file)
--- 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 22abd222d6215db2fb5a92cb603efac4ab78b23f..916c20e3d890a106118fd256f5b111ac9e57fe78 100644 (file)
--- 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 ff9eb8b120199fede61d46c6eb0696071a3731d0..30fe731deaea180f31773505392c85b9024130fa 100644 (file)
--- 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.")