]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/regression/apply-context.ly
(brew_molecule): cleaned up Cluster code and
[lilypond.git] / input / regression / apply-context.ly
index 2cf54b1b9915f21c8c2836b0ba3d3a1d902a192d..fadb284eb532c7128b8c7be39bbf9265a214c815 100644 (file)
@@ -11,12 +11,9 @@ octavation. "
 
     %% todo: should put something interesting in the .tex output.
     
-    \applycontext #(lambda (tr)
-                   (let* ((bn (ly:get-context-property tr 'currentBarNumber)))
-                    (if (= bn  3)
-                     #t
-                     (format #t "We were called in  ~a" bn))
-                ))
-
+    \applycontext
+       #(lambda (tr)
+        (format #t "\nWe were called in barnumber ~a.\n"
+         (ly:get-context-property tr 'currentBarNumber)))
     c1 c1
 }}