- base
-
- (if (ly:get-option 'verbose)
- " "
- " 2>&1 1>& /dev/null "))))
-
- (if (ly:get-option 'verbose)
- (begin
- (newline (current-error-port))
- (format (current-error-port) (_ "Invoking ~S") cmd)
- (newline (current-error-port)))
+ base)))
+
+ (let ((ps-name (string-append base ".ps")))
+ (if (access? ps-name W_OK)
+ (delete-file ps-name)))
+ (if (not (ly:get-option 'verbose))