From 181522ca8337d4834c2d89b61e914710193a2c57 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Tue, 31 Aug 2021 12:26:19 +0300 Subject: [PATCH] Fix missing first word within tags --- pandoc.r5rs.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pandoc.r5rs.scm b/pandoc.r5rs.scm index 7c5295d..fc21586 100644 --- a/pandoc.r5rs.scm +++ b/pandoc.r5rs.scm @@ -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