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 ,@(match attributes
(() '()) (() '())
(((attr . value) ...) (((attr . value) ...)
`((@ ,(map list attr value))))) `((@ . ,(map list attr value)))))
. ,(reverse seed)) . ,(reverse seed))
parent-seed)) parent-seed))
(define (ftext string1 string2 seed) (define (ftext string1 string2 seed)