*** empty log message ***

diff --git a/ChangeLog b/ChangeLog
index 12cbe88a79ea0185d2d7ad08ed131d9663fe2a65..546fb47f0b912d74335a2ef3b45e974ae44f17b6 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -10,6 +10,8 @@
 
 2005-05-23  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/lily.scm (lilypond-all): Bugfix: return failed.
+
        * lily/main.cc (setup_paths)[__MINGW32__]: Normalize LILYPONDPREFIX.
 
 2005-05-21  Jan Nieuwenhuizen  <janneke@gnu.org>

diff --git a/scm/lily.scm b/scm/lily.scm
index 46035c4f0057cb33d77b17badd1b2a223d3d1648..1580fe886e57285c42eca2e3f97a9a04becdd786 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -361,7 +361,8 @@ The syntax is the same as `define*-public'."
         (handler (lambda (key failed-file)
                    (set! failed (append (list failed-file) failed)))))
     ;;(handler (lambda (key . arg) (set! failed (append arg failed)))))
-    (for-each (lambda (x) (lilypond-file handler x)) files)))
+    (for-each (lambda (x) (lilypond-file handler x)) files)
+    failed))
 
 (define (lilypond-file handler file-name)
   (catch 'ly-file-failed
@@ -396,6 +397,8 @@ The syntax is the same as `define*-public'."
     (let ((failed (lilypond-all files)))
       (if (pair? failed)
          (begin
+           ;; ugh
+           (ly:stderr-redirect "foo" "r")
            (system (get-editor-command log-name 0 0))
            (ly:error (_ "failed files: ~S") (string-join failed))
            ;; not reached?
@@ -414,3 +417,4 @@ The syntax is the same as `define*-public'."
 (or (not (running-from-gui?))
     (ly:get-option 'safe)
     (define lilypond-main gui-main))
+    (define lilypond-main gui-main)