103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
((host port start-time server-id pid)
(debug:print-info 4 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
(if (or (not runremote)
(not (remote-conndat runremote)))
(begin
;; Here we are creating a runremote where there was none or it was clobbered with #f
;;
(set! runremote (make-remote))
(let* ((server-info (server:check-if-running areapath)))
(remote-server-info-set! runremote server-info)
(if server-info
(begin
(remote-server-url-set! runremote (server:record->url server-info))
(remote-server-id-set! runremote (server:record->id server-info)))))))
;; at this point we have a runremote
|
>
|
>
|
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
((host port start-time server-id pid)
(debug:print-info 4 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
(if (or (not runremote)
(not (remote-conndat runremote)))
(begin
;; Here we are creating a runremote where there was none or it was clobbered with #f
;;
(if (not runremote)
(set! runremote (make-remote))
(http-transport:close-connections runremote))
(let* ((server-info (server:check-if-running areapath)))
(remote-server-info-set! runremote server-info)
(if server-info
(begin
(remote-server-url-set! runremote (server:record->url server-info))
(remote-server-id-set! runremote (server:record->id server-info)))))))
;; at this point we have a runremote
|