slide: Tiny fix.

* src/guile/skribilo/package/slide.scm (slide-embed): Provide an
  identifier, pass ARGUMENTS.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-166

2 files changed, 21 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 5e43875..7b7d9a5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-09-20 14:16:12 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-166
+
+    Summary:
+      slide: Tiny fix.
+    Revision:
+      skribilo--devo--1.2--patch-166
+
+    * src/guile/skribilo/package/slide.scm (slide-embed): Provide an
+      identifier, pass ARGUMENTS.
+
+    modified files:
+     ChangeLog src/guile/skribilo/package/slide.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-108
+
+
 2007-09-20 14:15:38 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-165
 
     Summary:
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)))))
 
 ;*---------------------------------------------------------------------*/