(clip-systems
#f
"Generate cut-out snippets of a score.")
+ (crop
+ #f
+ "Match the size of the normal output to the typeset image.")
(datadir
#f
"LilyPond prefix for data files (read-only).")
(remove string-null?
(append-map
(lambda (f)
- (string-split (string-delete (ly:gulp-file f) #\cr) #\nl))
+ (string-split
+ (if (guile-v2)
+ (string-delete #\cr (ly:gulp-file f))
+ (string-delete (ly:gulp-file f) #\cr))
+ #\nl))
files))))
(if (and (number? (ly:get-option 'job-count))
(>= (length files) (ly:get-option 'job-count)))