about summary refs log tree commit diff
path: root/src/guile/skribilo/package/slide.scm
diff options
context:
space:
mode:
authorLudovic Court`es2006-02-14 14:34:50 +0000
committerLudovic Court`es2006-02-14 14:34:50 +0000
commitc7f820101026526e4d0d72ba4999a1b0fa9ebbb8 (patch)
tree705f8f94af1bc5b5b7d276b3b0dc5945927bc3b5 /src/guile/skribilo/package/slide.scm
parent8f5bd5e1126f1866921eb247ef55ed5b32c966f9 (diff)
downloadskribilo-c7f820101026526e4d0d72ba4999a1b0fa9ebbb8.tar.gz
skribilo-c7f820101026526e4d0d72ba4999a1b0fa9ebbb8.tar.lz
skribilo-c7f820101026526e4d0d72ba4999a1b0fa9ebbb8.zip
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
Diffstat (limited to 'src/guile/skribilo/package/slide.scm')
-rw-r--r--src/guile/skribilo/package/slide.scm4
1 files changed, 2 insertions, 2 deletions
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)))