(ly:error (_ "cannot find: ~A") x))
(primitive-load file-name)
(if (ly:get-option 'verbose)
- (ly:progress "]"))))
+ (ly:progress "]\n"))))
(define-public DOS
(let ((platform (string-tokenize
(if separate-logs
(open-file (if (string-or-symbol? (ly:get-option 'log-file))
(format "~a.log" (ly:get-option 'log-file))
- "/dev/tty") "a") #f))
+ "/dev/stderr") "a") #f))
(do-measurements (ly:get-option 'dump-profile))
(handler (lambda (key failed-file)
(set! failed (append (list failed-file) failed)))))
(if separate-logs
(ly:stderr-redirect (format "~a.log" base) "w"))
(if ping-log
- (format ping-log "Procesing ~a\n" base))
+ (format ping-log "Processing ~a\n" base))
(if (ly:get-option 'trace-memory-frequency)
(mtrace:start-trace (ly:get-option 'trace-memory-frequency)))
(lilypond-file handler x)
;; FIXME: soft-code, localize
(welcome-ly (string-append ly "Welcome_to_LilyPond.ly"))
(cmd (get-editor-command welcome-ly 0 0 0)))
- (ly:message (_ "Invoking `~a'...") cmd)
+ (ly:message (_ "Invoking `~a'...\n") cmd)
(system cmd)
(exit 1)))