CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Jan Nieuwenhuizen <[EMAIL PROTECTED]> 05/05/23 22:05:08
Modified files:
scm : lily.scm
. : ChangeLog
Log message:
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/lily.scm.diff?tr1=1.342&tr2=1.343&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3650&tr2=1.3651&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3650 lilypond/ChangeLog:1.3651
--- lilypond/ChangeLog:1.3650 Mon May 23 19:29:14 2005
+++ lilypond/ChangeLog Mon May 23 22:05:07 2005
@@ -10,6 +10,8 @@
2005-05-23 Jan Nieuwenhuizen <[EMAIL PROTECTED]>
+ * scm/lily.scm (lilypond-all): Bugfix: return failed.
+
* lily/main.cc (setup_paths)[__MINGW32__]: Normalize LILYPONDPREFIX.
2005-05-21 Jan Nieuwenhuizen <[EMAIL PROTECTED]>
Index: lilypond/scm/lily.scm
diff -u lilypond/scm/lily.scm:1.342 lilypond/scm/lily.scm:1.343
--- lilypond/scm/lily.scm:1.342 Mon May 23 19:18:58 2005
+++ lilypond/scm/lily.scm Mon May 23 22:05:07 2005
@@ -361,7 +361,8 @@
(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 @@
(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 @@
(or (not (running-from-gui?))
(ly:get-option 'safe)
(define lilypond-main gui-main))
+ (define lilypond-main gui-main)
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
