359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
|
exn
(begin
(print-call-chain *default-log-port*)
(debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
(if (args:any-defined? "-server" "-execute" "-run")
(debug:print-info 0 *default-log-port* "Closing connections to "api-dat))
(close-connection! api-dat)
(close-connection! (http-transport:server-dat-make-url server-dat))
(remote-conndat-set! runremote #f)
#t))
#f)))
(define (make-http-transport:server-dat)(make-vector 6))
(define (http-transport:server-dat-get-iface vec) (vector-ref vec 0))
|
|
|
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
|
exn
(begin
(print-call-chain *default-log-port*)
(debug:print-error 0 *default-log-port* " closing connection failed with error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
(if (args:any-defined? "-server" "-execute" "-run")
(debug:print-info 0 *default-log-port* "Closing connections to "api-dat))
(close-connection! api-dat)
;; (close-connection! (http-transport:server-dat-make-url server-dat))
(remote-conndat-set! runremote #f)
#t))
#f)))
(define (make-http-transport:server-dat)(make-vector 6))
(define (http-transport:server-dat-get-iface vec) (vector-ref vec 0))
|