Changeset 15860 in project


Ignore:
Timestamp:
09/13/09 16:46:08 (10 years ago)
Author:
sjamaan
Message:

Make write-draft's argument order consistent with put-document's

File:
1 edited

Legend:

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

    r15857 r15860  
    126126
    127127;; Write out a document in "draft" format to the specified output port.
    128 (define (write-draft outport attributes contents)
     128(define (write-draft outport contents attributes)
    129129  (write-attributes outport attributes)
    130130  (fprintf outport "\r\n")
     
    207207   (call-with-output-string ; use string because it wants content-length
    208208     ;; Can't write @digest because that would invalidate the document
    209      (lambda (out) (write-draft out (alist-delete '@digest attribs) contents)))
     209     (lambda (out) (write-draft out contents (alist-delete '@digest attribs))))
    210210   discard-output))
    211211
Note: See TracChangeset for help on using the changeset viewer.