From 526ded3f2d71f4047ad0bf92d69c771fe993660e Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Thu, 4 Mar 2010 23:38:32 -0800 Subject: [PATCH] Imported Debian patch 2.12.3-5 --- debian/changelog | 7 +++++++ scm/lily.scm | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/debian/changelog b/debian/changelog index 6bb2a3776b..87d97499e9 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,10 @@ +lilypond (2.12.3-5) unstable; urgency=low + + * Its guile that's being used, not MIT scheme; use access? instead of + file-writable? (Closes: #572290) + + -- Don Armstrong Thu, 04 Mar 2010 23:38:32 -0800 + lilypond (2.12.3-4) unstable; urgency=low * Scheme uses file-writeable for some reason (Closes: #572290) diff --git a/scm/lily.scm b/scm/lily.scm index bfbc77e62a..93956a82e4 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -673,9 +673,9 @@ PIDs or the number of the process." (if separate-logs (open-file (if (string-or-symbol? (ly:get-option 'log-file)) (format "~a.log" (ly:get-option 'log-file)) - (if (file-writeable? "/dev/tty") - ("/dev/tty") - ("/dev/null"))) "a") #f)) + (if (access? "/dev/tty" W_OK) + "/dev/tty" + "/dev/null")) "a") #f)) (do-measurements (ly:get-option 'dump-profile)) (handler (lambda (key failed-file) (set! failed (append (list failed-file) failed))))) -- 2.39.2