Index: http-transport.scm ================================================================== --- http-transport.scm +++ http-transport.scm @@ -229,11 +229,16 @@ (debug:print 0 "FATAL ERROR: http-transport:client-api-send-receive called with no server info") (exit 1)))) (res #f)) (handle-exceptions exn - #f + (if (> numretries 0) + (begin + (mutex-unlock! *http-mutex*) + (thread-sleep! 10) + (http-transport:client-api-send-receive run-id serverdat cmd params (- numretries 1))) + #f) (begin (debug:print-info 11 "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n") ;; set up the http-client here (max-retry-attempts 5) ;; consider all requests indempotent