diff options
author | Andy Wingo <wingo@pobox.com> | 2010-12-02 22:24:26 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-12-02 22:24:26 +0100 |
commit | 6901bad07d60e19eabdf3ecbcba19b1b1e45ca1b (patch) | |
tree | a19a683d082c830d9a7dc24510dcec530b2ff21b /module/sxml/simple.scm | |
parent | d9fff48e4c8139e410b7bca26503d5c01d2dddec (diff) | |
download | guile-6901bad07d60e19eabdf3ecbcba19b1b1e45ca1b.tar.gz |
sxml->xml fix
* module/sxml/simple.scm (attribute-value->xml): Whoops, fix null case.
Diffstat (limited to 'module/sxml/simple.scm')
-rw-r--r-- | module/sxml/simple.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/sxml/simple.scm b/module/sxml/simple.scm index be1dc4e02..dcef3b2cb 100644 --- a/module/sxml/simple.scm +++ b/module/sxml/simple.scm @@ -70,6 +70,8 @@ argument, @var{port}, which defaults to the current input port." ((pair? value) (attribute-value->xml (car value) port) (attribute-value->xml (cdr value) port)) + ((null? value) + *unspecified*) ((string? value) (string->escaped-xml value port)) ((procedure? value) |