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 caa8e0b02ecabdc6afed98dfaf97014df456bf7d..db7111e2b12f7479be141d6ebdb2470a02c2f471 100644 (file)
--- 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 4a4a376e5b623402ca128207eb98469b21890518..bb60280c320bc72a8959dabfca78ccddec185d0b 100644 (file)
--- 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)