From 8d1ef09d729f3d1b80493be9491a717760104e00 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Wed, 25 Aug 2021 11:50:57 +0300 Subject: [PATCH] Fix splicing bug --- pandoc.r5rs.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pandoc.r5rs.scm b/pandoc.r5rs.scm index f45af1f..7c5295d 100644 --- a/pandoc.r5rs.scm +++ b/pandoc.r5rs.scm @@ -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)))))