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