Megatest

Diff
Login

Differences From Artifact [0b46126861]:

To Artifact [c678d93a8b]:


279
280
281
282
283
284
285

286
287
288
289
290
291
292
	  (case res
	    ((server-started)
	     (if (> num-tries 0)
		 (begin
		   (thread-sleep! 2)
		   (rmt:general-open-connection remote apath dbname num-tries: (- num-tries 1)))
		 'failed))

	    (else
	     res))))))

;;======================================================================

;; Defaults to current area
;;







>







279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
	  (case res
	    ((server-started)
	     (if (> num-tries 0)
		 (begin
		   (thread-sleep! 2)
		   (rmt:general-open-connection remote apath dbname num-tries: (- num-tries 1)))
		 'failed))
	    
	    (else
	     res))))))

;;======================================================================

;; Defaults to current area
;;