Fix splicing bug
This commit is contained in:
parent
9172a0651b
commit
8d1ef09d72
|
@ -43,7 +43,7 @@
|
|||
((equal? type "Code")
|
||||
`(code ,@(convert-many (cdr (contents-list)))))
|
||||
((equal? type "CodeBlock")
|
||||
`(pre (@ (data-syntax ,(join-adjacent-strings
|
||||
`(pre (@ (data-syntax ,@(join-adjacent-strings
|
||||
(vector->list
|
||||
(vector-refs (contents) 0 1)))))
|
||||
,@(convert-many (cdr (contents-list)))))
|
||||
|
|
Loading…
Reference in New Issue