Changeset 15856 in project


Ignore:
Timestamp:
09/13/09 15:13:24 (10 years ago)
Author:
sjamaan
Message:

Fix exception conversion

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/estraier-client/estraier-client.scm

    r15855 r15856  
    6363
    6464(define (http->estraier-exn exn loc specific . rest)
    65   (estraier-exn loc ((condition-property-accessor 'exn 'message) exn)))
     65  (let ((msg ((condition-property-accessor 'exn 'message) exn)))
     66    (apply estraier-exn loc msg specific rest)))
    6667
    6768(define (exec loc uri writer reader)
Note: See TracChangeset for help on using the changeset viewer.