diff options
| author | Ludovic Courtès | 2020-08-02 10:06:05 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2020-08-02 10:08:13 +0200 |
| commit | 18eee9ec031ccdbb4f7ea1b7fb540b372787fa12 (patch) | |
| tree | cf9ee2d306f4a60cd494fb62101c22af6a1752a7 /src/guile/skribilo/source/lisp.scm | |
| parent | 60f1a4cfc168ef903e1eb0a4a81a302261431a31 (diff) | |
| download | skribilo-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/source/lisp.scm')
| -rw-r--r-- | src/guile/skribilo/source/lisp.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/guile/skribilo/source/lisp.scm b/src/guile/skribilo/source/lisp.scm index f949582..1a8b995 100644 --- a/src/guile/skribilo/source/lisp.scm +++ b/src/guile/skribilo/source/lisp.scm @@ -78,7 +78,7 @@ (and (eq? def fun) exp)) (('defvar var . _) (and (eq? var def) exp)) - (else #f))))) + (_ #f))))) (define (init-lisp-keys) (unless %lisp-keys @@ -120,7 +120,7 @@ (and (eq? def fun) exp)) (('define (? symbol? var) . _) (and (eq? var def) exp)) - (else #f))))) + (_ #f))))) (define (init-scheme-keys) @@ -165,8 +165,7 @@ (and (eq? def fun) exp)) (((or 'define 'define-module) (? symbol? var) . _) (and (eq? var def) exp)) - (else - #f))))) + (_ #f))))) (define (init-stklos-keys) @@ -221,7 +220,7 @@ (and (eq? var def) exp)) (('markup-output mk . _) (and (eq? mk def) exp)) - (else #f))))) + (_ #f))))) (define (init-skribe-keys) @@ -283,7 +282,7 @@ (((or 'define 'define-struct 'define-library) (? symbol? var) . _) (and (eq? var def) exp)) - (else #f))))) + (_ #f))))) (define bigloo (new language |