Megatest

Diff
Login

Differences From Artifact [1284519df6]:

To Artifact [eb684293be]:


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