* input/test/slur-shape.ly (x): remove file.

[lilypond.git] / input / regression / between-systems.ly

diff --git a/input/regression/between-systems.ly b/input/regression/between-systems.ly
index 7d57707c377208b308d8c9054543c56a312ec867..cc763cb0d2443e1acfaaf31777a9e93d595a4aca 100644 (file)
--- a/input/regression/between-systems.ly
+++ b/input/regression/between-systems.ly
@@ -11,15 +11,22 @@ of course.
 }
 
 
-% 
+#(define (set-page-break grob grob-c context)
+  (let*
+   ((meta (ly:get-grob-property grob 'meta))
+    (name (cdr (assoc 'name meta))))
+   
+   (if (equal? 'NonMusicalPaperColumn name)
+    (ly:set-grob-property! grob 'between-system-string "(pagebreak)\n\n"))
+))
 
 \score {
-\notes \relative c' { c1
-
-       \context Score \applyoutput #(outputproperty-compatibility (make-type-checker 'paper-column-interface) 'between-system-string "(pagebreak)\n\n")
+    \notes \relative c' {
+       c1
+       \context Score \applyoutput #set-page-break
        \break
-
-c1 }
-
+       
+       c1
+    }
 }