diff options
| author | Ludovic Court`es | 2007-09-20 09:39:16 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-09-20 09:39:16 +0000 |
| commit | 8ead9b042f96a719cf023ceede4177ed448a04c3 (patch) | |
| tree | f11cfa54853679e006572a090e3d619c1ac59bed | |
| parent | 7c53957cbc7209712f299022751d6bbc82ae9972 (diff) | |
| download | skribilo-8ead9b042f96a719cf023ceede4177ed448a04c3.tar.gz skribilo-8ead9b042f96a719cf023ceede4177ed448a04c3.tar.lz skribilo-8ead9b042f96a719cf023ceede4177ed448a04c3.zip | |
slide: Tiny fix.
* src/guile/skribilo/package/slide.scm (slide-embed): Provide an
identifier, pass ARGUMENTS.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-108
| -rw-r--r-- | src/guile/skribilo/package/slide.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index 0a3d773..2f5d8a8 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -179,9 +179,11 @@ (markup 'slide-embed) (loc &invocation-location) (required-options '(:alt)) - (options `((:geometry-opt ,geometry-opt) + (ident (symbol->string (gensym "slide-embed"))) + (options `((:arguments ,arguments) + (:geometry-opt ,geometry-opt) (:alt ,alt) - ,@(the-options opt :geometry-opt :alt))) + ,@(the-options opt :arguments :geometry-opt :alt))) (body (the-body opt))))) ;*---------------------------------------------------------------------*/ |