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