Fix splicing bug

This commit is contained in:
Lassi Kortela 2021-08-25 11:50:57 +03:00
parent 9172a0651b
commit 8d1ef09d72
1 changed files with 3 additions and 3 deletions

View File

@ -43,9 +43,9 @@
((equal? type "Code")
`(code ,@(convert-many (cdr (contents-list)))))
((equal? type "CodeBlock")
`(pre (@ (data-syntax ,(join-adjacent-strings
(vector->list
(vector-refs (contents) 0 1)))))
`(pre (@ (data-syntax ,@(join-adjacent-strings
(vector->list
(vector-refs (contents) 0 1)))))
,@(convert-many (cdr (contents-list)))))
((equal? type "Emph")
`(em ,@(convert-many (cdr (contents-list)))))