Fix missing first word within <em> tags

This commit is contained in:
Lassi Kortela 2021-08-31 12:26:19 +03:00
parent c235a0e70e
commit 181522ca83
1 changed files with 1 additions and 1 deletions

View File

@ -48,7 +48,7 @@
(vector-refs (contents) 0 1)))))
,@(convert-many (cdr (contents-list)))))
((equal? type "Emph")
`(em ,@(convert-many (cdr (contents-list)))))
`(em ,@(convert-many (contents-list))))
((equal? type "Header")
(let* ((level (car (contents-list)))
(h-tag (string->symbol