about summary refs log tree commit diff
path: root/src/guile/skribilo/package/slide/latex.scm
diff options
context:
space:
mode:
authorLudovic Courtès2020-08-02 10:06:05 +0200
committerLudovic Courtès2020-08-02 10:08:13 +0200
commit18eee9ec031ccdbb4f7ea1b7fb540b372787fa12 (patch)
treecf9ee2d306f4a60cd494fb62101c22af6a1752a7 /src/guile/skribilo/package/slide/latex.scm
parent60f1a4cfc168ef903e1eb0a4a81a302261431a31 (diff)
downloadskribilo-18eee9ec031ccdbb4f7ea1b7fb540b372787fa12.tar.gz
skribilo-18eee9ec031ccdbb4f7ea1b7fb540b372787fa12.tar.lz
skribilo-18eee9ec031ccdbb4f7ea1b7fb540b372787fa12.zip
Use '_' as the 'match' wildcard.
This addresses '-Wunused-variable' warnings.

* doc/modules/skribilo/documentation/api.scm (define-markup?)
(make-engine?, make-engine-custom)
(define-markup-formals, define-markup-options)
(define-markup-rest, exp->skribe): Use '_' instead of 'else' as the
'match' wildcard.
* src/guile/skribilo/package/slide/latex.scm (%slide-advi-setup!):
Likewise.
* src/guile/skribilo/source/lisp.scm (lisp-extractor)
(scheme-extractor, stklos-extractor, skribe-extractor)
(bigloo-extractor): Likewise.
* src/guile/skribilo/sui.scm (load-sui): Likewise.
(sui-title, sui-key, sui-find-ref, sui-filter): Likewise.
Diffstat (limited to 'src/guile/skribilo/package/slide/latex.scm')
-rw-r--r--src/guile/skribilo/package/slide/latex.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/package/slide/latex.scm b/src/guile/skribilo/package/slide/latex.scm
index 3bbcd76..b1562e7 100644
--- a/src/guile/skribilo/package/slide/latex.scm
+++ b/src/guile/skribilo/package/slide/latex.scm
@@ -1,6 +1,6 @@
 ;;; latex.scm  --  LaTeX implementation of the `slide' package.
 ;;;
-;;; Copyright 2007  Ludovic Courtès <ludo@chbouib.org>
+;;; Copyright 2007, 2020  Ludovic Courtès <ludo@chbouib.org>
 ;;; Copyright 2003, 2004  Manuel Serrano
 ;;;
 ;;;
@@ -279,7 +279,7 @@
 			 (display (string-append "}]{" id "}"))
 			 (evaluate-document (slide-pause) e)
 			 (loop (cdr lbls) id))
-			(else
+			(_
 			 (display "\\adviplay[[rgb]{")
 			 (display c)
 			 (format #t "}]{~a}" lbl)