(delete-file ps-name)))
(if (not (ly:get-option 'verbose))
(begin
- (format (current-error-port) (_ "Converting to `~a.ps'...") base)
+ (format (current-error-port) (_ "Converting to `~a'...")
+ (string-append base ".dvi"))
(newline (current-error-port))))
(ly:system cmd)))
(delete-file dvi-name)))
(if (not (ly:get-option 'verbose))
(begin
- (format (current-error-port) (_ "Converting to `~a.dvi'...") base)
+ (format (current-error-port) (_ "Converting to `~a'...")
+ (string-append base ".dvi"))
(newline (current-error-port))))
;; fixme: set in environment?