aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/lout.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 7ce8efa..2c7dac5 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -378,8 +378,9 @@
(define *lout-debug?* #f)
(define-macro (lout-debug fmt . args)
- `(and *lout-debug?*
- (format (current-error-port) (string-append ,fmt "~%") ,@args)))
+ (let ((fmt (string-append fmt "~%")))
+ `(and *lout-debug?*
+ (format (current-error-port) ,fmt ,@args))))
(define (lout-tagify ident)
;; Return an "clean" identifier (a string) based on `ident' (a string),
@@ -1722,8 +1723,8 @@
;; linebreak. However, the LaTeX engine doesn't seem to
;; agree.
;(display "\n@LP")
- (format #t (string-append "\n@Tbl # frame\n"
- " rule { yes }\n"))
+ (display (string-append "\n@Tbl # frame\n"
+ " rule { yes }\n"))
(if border (format #t " rulewidth { ~a }\n"
(lout-width border)))
(if width (format #t " width { ~a }\n"
@@ -2557,7 +2558,7 @@
(if (and (eq? kind 'mark) ident show-page-num?)
;; Marks don't have a number.
- (format #t (lout-page-of ident))
+ (display (lout-page-of ident))
;; Don't output a section/whatever number when text is
;; provided in order to be consistent with the HTML
@@ -2571,7 +2572,7 @@
(display " ")
(display number))
(if (and ident show-page-num?)
- (format #t (lout-page-of ident)))))))))
+ (display (lout-page-of ident)))))))))
;*---------------------------------------------------------------------*/
;* lout-make-url-breakable ... */