summaryrefslogtreecommitdiff
path: root/module/sxml
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-12-02 22:24:26 +0100
committerAndy Wingo <wingo@pobox.com>2010-12-02 22:24:26 +0100
commit6901bad07d60e19eabdf3ecbcba19b1b1e45ca1b (patch)
treea19a683d082c830d9a7dc24510dcec530b2ff21b /module/sxml
parentd9fff48e4c8139e410b7bca26503d5c01d2dddec (diff)
downloadguile-6901bad07d60e19eabdf3ecbcba19b1b1e45ca1b.tar.gz
sxml->xml fix
* module/sxml/simple.scm (attribute-value->xml): Whoops, fix null case.
Diffstat (limited to 'module/sxml')
-rw-r--r--module/sxml/simple.scm2
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)