(grob-cause): bugfix.

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 6d7767687bb0f9de191cfcc17272154ef8ea5aca..a02a20ce093c24879cbe84ce5f9fe99739b91a93 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -202,10 +202,13 @@
                           (ly:music-property cause 'origin)))
         (location (if (ly:input-location? music-origin)
                       (ly:input-file-line-column music-origin)
-                      #f))
-        (file (if location
-                  (if (and (> 0 (string-length (car location)))
-                           (eq? (string-ref (car location) 0) #\/))
+                      #f
+                      ))
+        (file (if (string? location)
+                  (if (and
+                       (> (string-length location) 0)
+                       (eq? (string-ref (car location) 0 ) #\/))
+
                       location
                       (string-append (getcwd) "/" (car location)))
                   #f))