#f
"Pad left edge of the output EPS bounding box by
given amount (in mm).")
+ (font-export-dir
+ #f
+ "Directory for exporting fonts as PostScript files.")
(gs-load-fonts
#f
"Load fonts via Ghostscript.")
(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)))