summary refs log tree commit diff
path: root/src/guile/skribilo/engine/html4.scm
diff options
context:
space:
mode:
authorLudovic Court`es2005-09-30 15:19:48 +0000
committerLudovic Court`es2005-09-30 15:19:48 +0000
commitc2426b17c48c16c8b8de413053d7ae4fb9838023 (patch)
treeb200f6be109cf7421b06592a6620a00d2dbed965 /src/guile/skribilo/engine/html4.scm
parent914355d81a9134ae39b839828a9e8fe6b537bc5c (diff)
parent6269aa26309cf98d100d7580c09ccf63b504d0d8 (diff)
downloadskribilo-c2426b17c48c16c8b8de413053d7ae4fb9838023.tar.gz
skribilo-c2426b17c48c16c8b8de413053d7ae4fb9838023.tar.lz
skribilo-c2426b17c48c16c8b8de413053d7ae4fb9838023.zip
The first vaguely working version.
Patches applied:

 * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-4
   First real document produced!


git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-8
Diffstat (limited to 'src/guile/skribilo/engine/html4.scm')
-rw-r--r--src/guile/skribilo/engine/html4.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine/html4.scm b/src/guile/skribilo/engine/html4.scm
index 614ca99..ddc7c73 100644
--- a/src/guile/skribilo/engine/html4.scm
+++ b/src/guile/skribilo/engine/html4.scm
@@ -123,14 +123,15 @@
 			       ((or (unspecified? sz) (not sz))
 				#f)
 			       ((and (number? sz) (or (inexact? sz) (negative? sz)))
-				(format "~a%"
+				(format #f "~a%"
 					(+ 100
 					   (* 20 (inexact->exact (truncate sz))))))
 			       ((number? sz)
 				sz)
 			       (else
 				(skribe-error 'font
-					      (format "Illegal font size ~s" sz)
+					      (format #f
+						      "illegal font size ~s" sz)
 					      n))))))
 		 (display "<span ")
 		 (html-class n)