diff options
author | Ludovic Court`es | 2007-06-06 09:25:35 +0000 |
---|---|---|
committer | Ludovic Court`es | 2007-06-06 09:25:35 +0000 |
commit | 6ec84d65e48bf0e6f7b682afdfed9f081d8baea7 (patch) | |
tree | 54983d24ab276ad6e5e263f983fdc2b3ed571677 /src/guile/skribilo/package/slide.scm | |
parent | 089f71c9b54b6714d5a83e9686c13b43c2b03d93 (diff) | |
download | skribilo-6ec84d65e48bf0e6f7b682afdfed9f081d8baea7.tar.gz skribilo-6ec84d65e48bf0e6f7b682afdfed9f081d8baea7.tar.lz skribilo-6ec84d65e48bf0e6f7b682afdfed9f081d8baea7.zip |
More package cleanups.
Various additional package cleanups, thanks to Guile-Lint.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-61
Diffstat (limited to 'src/guile/skribilo/package/slide.scm')
-rw-r--r-- | src/guile/skribilo/package/slide.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index dd6519d..0a3d773 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -21,19 +21,19 @@ (define-module (skribilo package slide) - :use-module (skribilo reader) :use-module (skribilo utils syntax) :use-module (skribilo lib) :use-module (skribilo ast) :use-module (skribilo engine) :use-module (skribilo evaluator) ;; `*load-options*' - :use-module (skribilo package base) + :autoload (skribilo color) (skribe-use-color!) :autoload (skribilo utils keywords) (the-options the-body) :use-module (srfi srfi-1) - :use-module (ice-9 optargs)) + :use-module (ice-9 optargs) + :use-module (ice-9 match)) (fluid-set! current-reader %skribilo-module-reader) @@ -92,7 +92,7 @@ ;*---------------------------------------------------------------------*/ ;* ref ... */ ;*---------------------------------------------------------------------*/ -(define %slide-old-ref ref) +; (define %slide-old-ref ref) ;; Extend the definition of `ref'. ;; FIXME: This technique breaks `ref' for some reason. @@ -144,7 +144,7 @@ ;*---------------------------------------------------------------------*/ ;* slide-pause ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-pause) +(define-markup (slide-pause :rest ignored) (new markup (loc &invocation-location) (markup 'slide-pause))) @@ -220,8 +220,8 @@ :key ident class color (scolor "#000000")) (let ((body (the-body opt))) (for-each (lambda (lbl) - (match-case lbl - ((?id ?col) + (match lbl + ((id col) (skribe-use-color! col)))) body) (new markup |