- %% todo: should put something interesting in the .tex output.
-
- \applycontext
- #(lambda (tr)
- (format #t "\nWe were called in barnumber ~a.\n"
- (ly:get-context-property tr 'currentBarNumber)))
- c1 c1
-}}
+ %% todo: should put something interesting in the .tex output.
+
+ \applyContext
+ #(lambda (tr)
+ (ly:progress "\nWe were called in bar number ~a.\n"
+ (ly:context-property tr 'currentBarNumber)))
+ c1 c1
+}