Fix xml attr parsing
This commit is contained in:
parent
eebd1b219a
commit
2d102677d1
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue