From ab8580cf975a86d1ad3379a7fde5e84f7312cd17 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 28 Oct 2004 19:56:38 +0000 Subject: [PATCH] Update to current implementation. --- v7/src/ssp/xmlrpc.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/v7/src/ssp/xmlrpc.scm b/v7/src/ssp/xmlrpc.scm index 73573491a..d0eabf8a2 100644 --- a/v7/src/ssp/xmlrpc.scm +++ b/v7/src/ssp/xmlrpc.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: xmlrpc.scm,v 1.2 2003/12/29 07:31:26 uid67408 Exp $ +$Id: xmlrpc.scm,v 1.3 2004/10/28 19:56:38 cph Exp $ -Copyright 2003 Massachusetts Institute of Technology +Copyright 2003,2004 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -61,6 +61,7 @@ USA. (define (xml-rpc:get-method-handler pathname name) (let ((methods (make-string-hash-table))) (let ((environment (make-expansion-environment pathname))) + (environment-define environment 'server-environment server-environment) (environment-define environment 'define-xmlrpc-method (lambda (name handler) (hash-table/put! methods name handler))) @@ -241,7 +242,7 @@ USA. ;; Probably not right -- formatting issues (rpc-elt:double (number->string object))) ((boolean? object) - (rpc-elt:boolean (if object "1" "0"))) + (rpc-elt:boolean? (if object "1" "0"))) ((string? object) (if (utf8-string-valid? object) (rpc-elt:string object) @@ -277,7 +278,7 @@ USA. (define (rpc-elt name) (let ((make-elt - (standard-element-constructor name (null-xml-namespace-iri)))) + (standard-xml-element-constructor name (null-xml-namespace-iri) #f))) (lambda contents (apply make-elt #f contents)))) -- 2.25.1