summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2007-09-20 09:39:16 +0000
committerLudovic Court`es2007-09-20 09:39:16 +0000
commit8ead9b042f96a719cf023ceede4177ed448a04c3 (patch)
treef11cfa54853679e006572a090e3d619c1ac59bed /src
parent7c53957cbc7209712f299022751d6bbc82ae9972 (diff)
downloadskribilo-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
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/package/slide.scm6
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)))))
;*---------------------------------------------------------------------*/