[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.5-136-g0eba699

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=0eba699d12f638c624efcdc2b617b0aa9099ee1f

The branch, stable-2.0 has been updated
       via  0eba699d12f638c624efcdc2b617b0aa9099ee1f (commit)
      from  520850ad2768dbc0fe16254b90a52b16bfad1f14 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 0eba699d12f638c624efcdc2b617b0aa9099ee1f
Author: Andy Wingo <address@hidden>
Date:   Tue May 8 16:03:54 2012 +0200

    docbook->texi fix
    
    * module/texinfo/docbook.scm (*sdocbook->stexi-rules*): Only convert
      ulink to uref if there is a URL attribute.

-----------------------------------------------------------------------

Summary of changes:
 module/texinfo/docbook.scm |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/module/texinfo/docbook.scm b/module/texinfo/docbook.scm
index 50a7bbc..c5a8d65 100644
--- a/module/texinfo/docbook.scm
+++ b/module/texinfo/docbook.scm
@@ -97,8 +97,12 @@ a number of generic rules for transforming docbook into 
texinfo."
     (subsection . ,identity)
     (subsubsection . ,identity)
     (ulink . ,(lambda (tag attrs . body)
-                `(uref (% ,(assq 'url (cdr attrs))
-                          (title ,@body)))))
+                (cond
+                 ((assq 'url (cdr attrs))
+                  => (lambda (url)
+                       `(uref (% ,url (title ,@body)))))
+                 (else
+                  (car body)))))
     (*text* . ,detag-one)
     (*default* . ,(lambda (tag . body)
                     (let ((subst (assq tag tag-replacements)))


hooks/post-receive
-- 
GNU Guile