1
0
Fork 0

Fix xml attr parsing

This commit is contained in:
Andy Wingo 2022-10-20 23:10:46 +02:00
parent eebd1b219a
commit 2d102677d1

View file

@ -92,7 +92,7 @@
,@(match attributes
(() '())
(((attr . value) ...)
`((@ ,(map list attr value)))))
`((@ . ,(map list attr value)))))
. ,(reverse seed))
parent-seed))
(define (ftext string1 string2 seed)