Changeset 33185 in project


Ignore:
Timestamp:
02/14/16 13:51:56 (4 years ago)
Author:
sjamaan
Message:

xml-rpc: Fix nasty alist-ref hack that depended on comparison procedure argument order.

Location:
release/4/xml-rpc/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/xml-rpc/trunk/xml-rpc-client.scm

    r26019 r33185  
    55;; This file contains a client implementation.
    66;
    7 ; Copyright (c) 2009-2012, Peter Bex
     7; Copyright (c) 2009-2012, 2016, Peter Bex
    88; Parts Copyright (c) Felix Winkelmann
    99; All rights reserved.
  • release/4/xml-rpc/trunk/xml-rpc-lolevel.scm

    r26019 r33185  
    55;; This file contains the plumbing for XML RPC value marshaling/unmarshaling.
    66;
    7 ; Copyright (c) 2009-2012, Peter Bex
     7; Copyright (c) 2009-2012, 2016, Peter Bex
    88; Parts Copyright (c) Felix Winkelmann
    99; All rights reserved.
     
    127127
    128128(define (value->xml-rpc-fragment value)
    129   ((alist-ref value (xml-rpc-unparsers)
    130               (lambda (pred? v) (pred? v))
    131               (lambda _ (error "No parser for value " value)))
    132    value))
     129  (let ((pred&unparser (find (lambda (p&u) ((car p&u) value))
     130                             (xml-rpc-unparsers))))
     131    (if pred&unparser
     132        ((cdr pred&unparser) value)
     133        (error "No parser for value " value))))
    133134
    134135(define (xml-rpc-int->number fragment)
  • release/4/xml-rpc/trunk/xml-rpc-server.scm

    r26019 r33185  
    55;; This file contains a server implementation.
    66;
    7 ; Copyright (c) 2009-2012, Peter Bex
     7; Copyright (c) 2009-2012, 2016, Peter Bex
    88; Parts Copyright (c) Felix Winkelmann
    99; All rights reserved.
Note: See TracChangeset for help on using the changeset viewer.