Changeset 15857 in project


Ignore:
Timestamp:
09/13/09 16:21:42 (10 years ago)
Author:
sjamaan
Message:

set-user should not return a value, and exec should discard any extra, unimportant information returned by http-client

File:
1 edited

Legend:

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

    r15856 r15857  
    7070      ;; Estraier doesn't understand the preferred ";" separator
    7171      (parameterize ((form-urlencoded-separator "&"))
    72         (call-with-input-request uri writer reader))
     72        (receive (result . _)
     73          (call-with-input-request uri writer reader)
     74          result))
    7375    (exn (client-error)
    7476         (case (response-code
     
    341343  (exec loc (node-uri base-uri node "_set_user"
    342344                      query: `((name . ,name) (mode . ,mode)))
    343         #f read-lines))
     345        #f discard-output))
    344346
    345347(define (unregister-user base-uri node name)
Note: See TracChangeset for help on using the changeset viewer.