+ (if (ly:get-option 'font-export-dir)
+ (let ((dirname (format #f "~a" (ly:get-option 'font-export-dir))))
+ (if (file-exists? dirname)
+ (ly:debug
+ (_ "Font export directory `~a' already exists.") dirname)
+ (begin
+ (ly:debug
+ (_ "Making font export directory `~a'.") dirname)
+ (mkdir dirname)))))