release: 1.5.21

[lilypond.git] / lily / line-of-score.cc

diff --git a/lily/line-of-score.cc b/lily/line-of-score.cc
index e82b54448107e02dce0ad61309494a2c4e0c4561..464cd4e6abd75458a467a484181d8e0869f2731d 100644 (file)
--- a/lily/line-of-score.cc
+++ b/lily/line-of-score.cc
@@ -114,10 +114,14 @@ Line_of_score::output_lines ()
        {
          SCM lastcol =  ly_car (line_l->get_grob_property ("columns"));
          Grob*  e = unsmob_grob (lastcol);
-         SCM inter = e->get_grob_property ("between-system-string");
+
+         SCM between = ly_symbol2scm ("between-system-string");
+         SCM inter = e->internal_get_grob_property (between);
          if (gh_string_p (inter))
            {
-             pscore_l_->outputter_l_->output_string (inter);         
+             pscore_l_->outputter_l_
+               ->output_scheme (scm_list_n (between, 
+                                            inter, SCM_UNDEFINED));          
            }
        }
     }
@@ -371,8 +375,8 @@ Line_of_score::post_processing (bool last_line)
    */
   SCM font_names = ly_quote_scm (paper_l ()->font_descriptions ());  
   output_scheme (scm_list_n (ly_symbol2scm ("define-fonts"),
-                                       font_names,
-                                       SCM_UNDEFINED));
+                            font_names,
+                            SCM_UNDEFINED));
 
   /*
     line preamble.