From 6901bad07d60e19eabdf3ecbcba19b1b1e45ca1b Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 2 Dec 2010 22:24:26 +0100 Subject: sxml->xml fix * module/sxml/simple.scm (attribute-value->xml): Whoops, fix null case. --- module/sxml/simple.scm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'module/sxml/simple.scm') 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) -- cgit v1.2.3