*** empty log message ***

diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index f79798dda423f35247abdfdc32b2e016dc6e7fc7..cbd7a1daf22ba307c5d8ee642fb99d4c605b533d 100644 (file)
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -11,7 +11,7 @@
 (define (translator-property-description symbol type? description)
  (if (not (equal? #f (object-property symbol 'translation-doc)))
       (begin
-       (ly:warn  "Redefining ~S " (symbol->string symbol)))
+       (ly:warn  "Redefining ~S " symbol)
        (exit 2)
       ))
   

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 53c0aecfcced0a30e8031aefefe12d7d9ab22e7e..33bf3a7f71e8a254bd4d1ae37c34bbed6d69e9d2 100644 (file)
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -10,7 +10,7 @@
 (define (define-grob-property symbol type? description)
   (if (not (equal? (object-property symbol 'backend-doc) #f))
       (begin
-       (ly:warn-append "Redefining ~S" (symbol->string symbol))
+       (ly:warn-append "Redefining ~S" symbol)
        (exit 2)
       ))
   

diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm
index e496546fdfbf92a59d24d8d2bef8419410ef2312..86f3f5cefc92c3391a09890d4b78e4cf72d79889 100644 (file)
--- a/scm/define-music-properties.scm
+++ b/scm/define-music-properties.scm
@@ -10,7 +10,7 @@
 (define (music-property-description symbol type? description)
   (if (not (equal? #f (object-property symbol 'music-doc)))
       (begin
-       (ly:warn "Redefining ~S" (symbol->string symbol))
+       (ly:warn "Redefining ~S" symbol)
        (exit 2)
        ))
   (set-object-property! symbol 'music-type? type?)

diff --git a/scm/define-music-types.scm b/scm/define-music-types.scm
index bb6c47b3e7199b7cd32e5c00597cb034849f7a15..724de3993ef8c5c25a7b9abb5a72bced2fa61426 100644 (file)
--- a/scm/define-music-types.scm
+++ b/scm/define-music-types.scm
@@ -814,8 +814,7 @@ and values. E.g:
         (music-name (if (pair? handle)
                         (cdr handle)
                         (begin
-                          (ly:warn (string-append "Unknown repeat type `" name
-                                                  "'\nSee music-types.scm for supported repeats"))
+                          (ly:warn "Unknown repeat type `~S'\nSee music-types.scm for supported repeats" name)
                           'VoltaRepeatedMusic))))
     (make-music music-name)))
 

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index e63f9579a26e522ab711538d40da66fe69ce5acc..554018145bd5b5c28cceb3a3f82d9e7749a90c65 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -742,5 +742,5 @@ use GrandStaff as a context. "
                                   '()
                                   context))
       (else
-       (ly:warn (string-append "Unknown accidental style: " (symbol->string style)))
+       (ly:warn "Unknown accidental style: ~S" (symbol->string style))
        (make-sequential-music '()))))))

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index d034cf6ef9b24398242fecdeffc5aa47b3950f10..731c11df1b42ad64173ca4e9127eb06c423aae7d 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -237,7 +237,7 @@ centered, X==1 is at the right, X == -1 is at the left."
                        )))
 
      (if (equal? result #f)
-        (ly:warn (string-append "Unknown bar glyph: `" glyph "'"))
+        (ly:warn "Unknown bar glyph: `~S'" glyph)
         (index-cell (cdr result) dir))
      ) )
      

diff --git a/scm/output-pdftex.scm b/scm/output-pdftex.scm
index 09d448c1f682613e4d9c243e191acba014f6af7c..f20f7a02aa9898c2b7add58963b1cbba09f82290 100644 (file)
--- a/scm/output-pdftex.scm
+++ b/scm/output-pdftex.scm
@@ -37,11 +37,10 @@
          (display (object-type (car name-mag-pair)))
          (display (object-type (caaar font-name-alist)))
 
-         (ly:warn (string-append
-                   "Programming error: No such font known "
-                   (car name-mag-pair) " "
+         (ly:warn "Programming error: No such font known ~S ~S"
+                   (car name-mag-pair) 
                    (ly:number->string (cdr name-mag-pair))
-                   ))
+                   )
          "") ; issue no command
        (string-append "\\" (cddr c)))
     

diff --git a/scm/paper.scm b/scm/paper.scm
index 163d836245e9e9d37132cb2e4dad10aecf1b1fc5..1904db71c0351f1361a6d003d6fae986cf6e3884 100644 (file)
--- a/scm/paper.scm
+++ b/scm/paper.scm
@@ -84,8 +84,8 @@
     
     (cond
      ((not is-bookpaper?)
-      (ly:warning "This is not a \\paper {} object:")
-      (display module))
+      (ly:warning "This is not a \\paper {} object, ~S"
+                  module))
      ((pair? entry)
       (set! entry (eval  (cdr entry) module))
          (set-paper-dimensions module (car entry) (cdr entry))
@@ -123,7 +123,7 @@
                           (/ val scale))
 
           ;; spurious warnings, eg. for hsize, vsize. 
-;         (ly:warn (format "not a number, ~S = ~S " v  val))
+;         (ly:warn "not a number, ~S = ~S " v  val)
           ))
      
      dim-vars)