From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 6 Feb 2005 04:44:27 +0000 (+0000)
Subject: Reverse order of arguments to XML-RPC:CONDITION->FAULT.
X-Git-Tag: 20090517-FFI~1383
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b447b9cbf34a0d33e03dfc7be211d4f5c340396e;p=mit-scheme.git

Reverse order of arguments to XML-RPC:CONDITION->FAULT.
---

diff --git a/v7/src/ssp/mod-lisp.scm b/v7/src/ssp/mod-lisp.scm
index caa8e0b02..db7111e2b 100644
--- a/v7/src/ssp/mod-lisp.scm
+++ b/v7/src/ssp/mod-lisp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: mod-lisp.scm,v 1.24 2005/02/06 04:40:58 cph Exp $
+$Id: mod-lisp.scm,v 1.25 2005/02/06 04:44:20 cph Exp $
 
 Copyright 2003,2004 Massachusetts Institute of Technology
 
@@ -786,7 +786,7 @@ USA.
    (lambda (k)
      (bind-condition-handler (list condition-type:error)
 	 (lambda (condition)
-	   (k (xml-rpc:condition->fault condition 1)))
+	   (k (xml-rpc:condition->fault 1 condition)))
        (lambda ()
 	 (receive (name params) (xml-rpc:parse-request document)
 	   (let ((handler (get-xmlrpc-method-handler pathname name)))
diff --git a/v7/src/ssp/xmlrpc.scm b/v7/src/ssp/xmlrpc.scm
index 4a4a376e5..bb60280c3 100644
--- a/v7/src/ssp/xmlrpc.scm
+++ b/v7/src/ssp/xmlrpc.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xmlrpc.scm,v 1.8 2005/02/06 04:41:13 cph Exp $
+$Id: xmlrpc.scm,v 1.9 2005/02/06 04:44:27 cph Exp $
 
 Copyright 2003,2004,2005 Massachusetts Institute of Technology
 
@@ -52,7 +52,7 @@ USA.
 		  (lambda (port)
 		    (format-error-message message irritants port)))))
 
-(define (xml-rpc:condition->fault condition code)
+(define (xml-rpc:condition->fault code condition)
   (xml-rpc:fault code (condition/report-string condition)))
 
 (define (xml-rpc:parse-request document)