Ignore:
Timestamp:
06/29/09 23:59:22 (11 years ago)
Author:
sjamaan
Message:

Get rid of weird remove-connection! procedure

File:
1 edited

Legend:

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

    r15113 r15114  
    3434(module http-client
    3535  (max-retry-attempts max-redirect-depth retry-request? client-software
    36    remove-connection! close-connection! close-all-connections!
     36   close-connection! close-all-connections!
    3737   call-with-input-request with-input-from-request call-with-response)
    3838
     
    9191  (hash-table-set! (connections) uri con))
    9292
    93 (define (remove-connection! uri-or-con)
    94   ;; Ensure the connection is closed, then remove it from the hashtable
    95   (let ((con (close-connection! uri-or-con)))
    96     (hash-table-delete! (connections) (http-connection-base-uri con))))
    97 
    9893(define (close-connection! uri-or-con)
    9994  (ensure-local-connections)
     
    10398    (close-input-port (http-connection-inport con))
    10499    (close-output-port (http-connection-outport con))
    105     con))
     100    (hash-table-delete! (connections) (http-connection-base-uri con))))
    106101
    107102(define (close-all-connections!)
Note: See TracChangeset for help on using the changeset viewer.