mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

sxml->xml fix

Browse source 
* module/sxml/simple.scm (attribute-value->xml): Whoops, fix null case.
This commit is contained in:
Andy Wingo 2010-12-02 22:24:26 +01:00
parent d9fff48e4c
commit 6901bad07d
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/sxml/simple.scm
View file

@ -70,6 +70,8 @@ argument, @var{port}, which defaults to the current input port."
((pair? value) ((pair? value)
(attribute-value->xml (car value) port) (attribute-value->xml (car value) port)
(attribute-value->xml (cdr value) port)) (attribute-value->xml (cdr value) port))
((null? value)
*unspecified*)
((string? value) ((string? value)
(string->escaped-xml value port)) (string->escaped-xml value port))
((procedure? value) ((procedure? value)