summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/lout.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index d10dbcf..93a7f5b 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -1,7 +1,8 @@
;;; lout.scm -- A Lout engine.
;;; -*- coding: iso-8859-1 -*-
;;;
-;;; Copyright 2004, 2005, 2006, 2007, 2008, 2009, 2010 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2004, 2005, 2006, 2007, 2008, 2009, 2010,
+;;; 2012 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -1728,8 +1729,10 @@
(markup-writer 'font
:options '(:size :face)
:before (lambda (n e)
- (let ((ratio (lout-size-ratio (markup-option n :size))))
- (format #t "\n~af @Font ~avx @Break { " ratio ratio)))
+ (if (markup-option n :size)
+ (let ((ratio (lout-size-ratio (markup-option n :size))))
+ (format #t "\n~af @Font ~avx @Break { " ratio ratio))
+ (display "{")))
:after (lambda (n e)
(display " }\n")))