diff options
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/engine/html.scm | 2 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm index 843f099..c290189 100644 --- a/src/guile/skribilo/engine/html.scm +++ b/src/guile/skribilo/engine/html.scm @@ -1209,8 +1209,6 @@ (markup '&html-head) (ident (string-append id "-head")) (class (markup-class n)) - (options (the-options (list :keywords - (markup-option n :keywords)))) (parent n) (body (list header meta)))) (ftnote (new markup diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 7922de2..cb7c6fa 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -814,7 +814,8 @@ t (markup-option doc :title)))) (keywords (or (engine-custom engine 'pdf-keywords) - (map ast->string (markup-option doc :keywords)))) + (map ast->string + (or (markup-option doc :keywords) '())))) (extra-fields (engine-custom engine 'pdf-extra-info))) (string-append "[ " |