mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

fix stexi->html double translation

Browse source 
* module/texinfo/html.scm (entry): Fix to avoid double translation:
  arg-req already pulls an stexi->shtml on its arg.
This commit is contained in:
Andy Wingo 2011-03-26 13:33:21 +01:00
parent 362126aa96
commit 38c50a99b6
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/texinfo/html.scm
View file

@ -1,6 +1,6 @@
;;;; (texinfo html) -- translating stexinfo into shtml
;;;;
;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc.
;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc.
;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com>
;;;;
;;;; This library is free software; you can redistribute it and/or
@ -148,14 +148,12 @@ name, @code{#}, and the node name."
(apply append body)))))
(define (entry tag args . body)
(let lp ((headings (list (arg-req 'heading args))) (body body))
(let lp ((out `((dt ,@(arg-req 'heading args))))
(body body))
(if (and (pair? body) (pair? (car body)) (eq? (caar body) 'itemx))
(lp (cons (cdar body) headings)
(lp (append out `(dt ,@(map stexi->shtml (cdar body))))
(cdr body))
`(,@(map (lambda (heading)
`(dt ,@(map stexi->shtml heading)))
headings)
(dd ,@(map stexi->shtml body))))))
(append out `((dd ,@(map stexi->shtml body)))))))
(define tag-replacements
'((titlepage div (@ (class "titlepage")))