Megatest

Diff
Login

Differences From Artifact [9958005d06]:

To Artifact [51576793bd]:


337
338
339
340
341
342
343

344

345
346
347
348
349
350
351

    ;; Server? Start up here.
    ;;
    (let ((tl        (setup-for-run))
	  (run-id    (and (args:get-arg "-run-id")
			  (string->number (args:get-arg "-run-id")))))
      (if run-id

	  (server:launch run-id)

	  (debug:print 0 "ERROR: server requires run-id be specified with -run-id")))

    ;; Not a server? This section will decide how to communicate
    ;;
    ;;  Setup client for all expect listed here
    (if (null? (lset-intersection 
		     equal?







>
|
>







337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353

    ;; Server? Start up here.
    ;;
    (let ((tl        (setup-for-run))
	  (run-id    (and (args:get-arg "-run-id")
			  (string->number (args:get-arg "-run-id")))))
      (if run-id
	  (begin
	    (server:launch run-id)
	    (set! *didsomething* #t))
	  (debug:print 0 "ERROR: server requires run-id be specified with -run-id")))

    ;; Not a server? This section will decide how to communicate
    ;;
    ;;  Setup client for all expect listed here
    (if (null? (lset-intersection 
		     equal?