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
|
||||
(() '())
|
||||
(((attr . value) ...)
|
||||
`((@ ,(map list attr value)))))
|
||||
`((@ . ,(map list attr value)))))
|
||||
. ,(reverse seed))
|
||||
parent-seed))
|
||||
(define (ftext string1 string2 seed)
|
||||
|
|
Loading…
Reference in a new issue