Index: client.scm ================================================================== --- client.scm +++ client.scm @@ -171,15 +171,16 @@ ((http)(http-transport:client-connect iface port)) ;;((nmsg)(nmsg-transport:client-connect hostname port)) )) (ping-res (case *transport-type* ((http)(rmt:login-no-auto-client-setup start-res run-id)) - ;;((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id) - )) - (if logininfo - (car (vector-ref logininfo 1)) - #f)))))) + ;; ((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id))) + ;; (if logininfo + ;; (car (vector-ref logininfo 1)) + ;; #f))) + + ))) (if (and start-res ping-res) (begin (hash-table-set! *runremote* run-id start-res) (debug:print-info 2 *default-log-port* "connected to " (http-transport:server-dat-make-url start-res))