X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-context-mods.scm;h=aa239e71ea5ea193e7bfaf4aa5713c3314669627;hb=8659a99f233f5c4684292728e7ad4206669b35b0;hp=0695008d493ccf10352e3b4f21de1535d3571b99;hpb=99b6f3aa3558b01c9d4158b19a1f1794c534f89c;p=lilypond.git

diff --git a/scm/document-context-mods.scm b/scm/document-context-mods.scm
index 0695008d49..aa239e71ea 100644
--- a/scm/document-context-mods.scm
+++ b/scm/document-context-mods.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2011--2014 Neil Puttock <n.puttock@gmail.com>
+;;;; Copyright (C) 2011--2015 Neil Puttock <n.puttock@gmail.com>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -29,31 +29,31 @@
        (let ((value (car args))
              (path (cdr args)))
          (string-append
-          (format "@item Sets grob property @code{~a} "
+          (format #f "@item Sets grob property @code{~a} "
                   (grob-property-path path))
-          (format "in @code{@rinternals{~a}} to" name-sym)
+          (format #f "in @code{@rinternals{~a}} to" name-sym)
           (if (pretty-printable? value)
-            (format ":~a\n" (scm->texi value))
-            (format " ~a.\n" (scm->texi value))))))
+            (format #f ":~a\n" (scm->texi value))
+            (format #f " ~a.\n" (scm->texi value))))))
       ((pop)
        (string-append
-        (format "@item Reverts grob property @code{~a} "
+        (format #f "@item Reverts grob property @code{~a} "
                 (grob-property-path (car args)))
-        (format "in @code{@rinternals{~a}}.\n"
+        (format #f "in @code{@rinternals{~a}}.\n"
                 name-sym)))
       ((assign)
        (string-append
-         (format "@item Sets translator property @code{~a} to" name-sym)
+         (format #f "@item Sets translator property @code{~a} to" name-sym)
          (if (pretty-printable? value)
-           (format ":~a\n" (scm->texi (car args)))
-           (format " ~a.\n" (scm->texi (car args))))))
+           (format #f ":~a\n" (scm->texi (car args)))
+           (format #f " ~a.\n" (scm->texi (car args))))))
       ((unset)
-       (format "@item Unsets translator property @code{~a}.\n"
+       (format #f "@item Unsets translator property @code{~a}.\n"
                name-sym))
       ((consists)
-       (format "@item Adds @code{@rinternals{~a}}.\n" name-sym))
+       (format #f "@item Adds @code{@rinternals{~a}}.\n" name-sym))
       ((remove)
-       (format "@item Removes @code{@rinternals{~a}}.\n" name-sym))
+       (format #f "@item Removes @code{@rinternals{~a}}.\n" name-sym))
       (else ""))))
 
 (define (document-context-mod context-mod-pair)
@@ -62,7 +62,7 @@
          (docstring (filter (lambda (mod)
                               (eq? (car mod) 'description))
                             mod-list)))
-    (format
+    (format #f
      "@item @code{~a}
 @findex ~a
 ~a
@@ -84,7 +84,7 @@
        (document-context-mod obj-pair)))
 
 (define context-mods-doc-string
-  (format
+  (format #f
    "@table @asis
 ~a
 @end table