From 3798da6d2a9cd4be864404105ff0eb24090085c9 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Fri, 19 Sep 2014 11:53:46 +0200
Subject: [PATCH] Issue 4115: Call (ice-9 format) with #f as second argument

Our own format in (lily) will substitute the #f by itself when necessary, but in
scm/document-context-mods.scm, we are explicitly asking for (ice-9 format)
---
 scm/document-context-mods.scm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/scm/document-context-mods.scm b/scm/document-context-mods.scm
index 0695008d49..cfbccbc5d0 100644
--- a/scm/document-context-mods.scm
+++ b/scm/document-context-mods.scm
@@ -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
-- 
2.39.5