From c7f820101026526e4d0d72ba4999a1b0fa9ebbb8 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Tue, 14 Feb 2006 14:34:50 +0000
Subject: Created the `(skribilo utils files)' module.

* src/guile/skribilo/package/slide.scm: Fixed calls to `format'.

* src/guile/skribilo/runtime.scm: Use `(skribilo utils files)'.  Use
  `file-suffix' and `file-prefix' instead of `suffix' and `prefix'.
  Removed local definition of `suffix'.

* src/guile/skribilo/utils/compat.scm: Use `(skribilo utils files)'.
  Moved `file-suffix' and `file-prefix' there.

* src/guile/skribilo/utils/files.scm: New.

* src/guile/skribilo/utils/Makefile.am (dist_guilemodule_DATA): Added
  `files.scm'.

git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-44
---
 src/guile/skribilo/package/slide.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/guile/skribilo/package/slide.scm')

diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm
index ddbbd1d..5b39239 100644
--- a/src/guile/skribilo/package/slide.scm
+++ b/src/guile/skribilo/package/slide.scm
@@ -366,7 +366,7 @@
 			      (tr (th :align 'left
 				     (list
 				      (if nb
-					  (format "~a / ~a -- " nb
+					  (format #f "~a / ~a -- " nb
 						  (slide-number)))
 				      t)))
 			      (tr (td (hrule)))
@@ -662,7 +662,7 @@
       (let* ((cap (engine-custom le 'slide-caption))
 	     (o (engine-custom le 'predocument))
 	     (n (if (string? cap)
-		    (format "~a\\slideCaption{~a}\n"
+		    (format #f "~a\\slideCaption{~a}\n"
 			    &slide-prosper-predocument
 			    cap)
 		    &slide-prosper-predocument)))
-- 
cgit 1.4.1