From d944fe4e8bf9d05cd00df44390098c85c5b4b3b3 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 16 Feb 2005 04:31:24 +0000 Subject: [PATCH] Fix bug in implementation of empty-element constructors. --- v7/src/ssp/xmlrpc.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/ssp/xmlrpc.scm b/v7/src/ssp/xmlrpc.scm index cdd653d2d..68b81bd8a 100644 --- a/v7/src/ssp/xmlrpc.scm +++ b/v7/src/ssp/xmlrpc.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: xmlrpc.scm,v 1.10 2005/02/08 20:40:31 cph Exp $ +$Id: xmlrpc.scm,v 1.11 2005/02/16 04:31:24 cph Exp $ Copyright 2003,2004,2005 Massachusetts Institute of Technology @@ -299,9 +299,9 @@ USA. empty?))) (if empty? (lambda () - (make-elt #f)) + (make-elt)) (lambda contents - (apply make-elt #f contents))))) + (apply make-elt (xml-attrs) contents))))) (define rpc-elt:array (rpc-elt 'array #f)) (define rpc-elt:base64 (rpc-elt 'base64 #f)) -- 2.25.1