aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorArun Isaac2023-12-02 00:17:53 +0000
committerArun Isaac2023-12-02 00:20:19 +0000
commit6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c (patch)
tree4910e42d599fa67ba52c22fc7f402c36c092f647 /src/guile
parent8fdca7f2bc1b24e9cb2cc71d0381ccd131b4bf9f (diff)
downloadskribilo-6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c.tar.gz
skribilo-6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c.tar.lz
skribilo-6c6ac6922d4fb4dfec9fa58dcb9e9023db09a72c.zip
html: Output address only when it is a list.
* src/guile/skribilo/engine/html.scm (author): Output address only when it is a list.
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/html.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 96b5565..b00b93c 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1083,8 +1083,10 @@ ignored, return #f."
(when title (row title))
;; affiliation
(when affiliation (row affiliation))
- ;; address
- (when address (for-each row address))
+ ;; Output address only if it is a list. address could
+ ;; be a markup object.
+ (when (list? address)
+ (for-each row address))
;; telephone
(when phone (row phone))
;; email