97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
-
+
+
+
+
-
-
-
+
+
+
-
-
|
;; DOT SET_HOMEHOST; // leaving off - doesn't really add to the clarity
;; DOT MUTEXLOCK -> SET_HOMEHOST [label="no homehost?"];
;; DOT SET_HOMEHOST -> MUTEXLOCK;
;; ensure we have a homehost record
(if (not (pair? (remote-hh-dat runremote))) ;; not on homehost
(thread-sleep! 0.1) ;; since we shouldn't get here, delay a little
(remote-hh-dat-set! runremote (common:get-homehost)))
(if (> attemptnum 2)
(debug:print 1 "INFO: attemptnum in rmt:send-receive is " attemptnum))
(cond
((> attemptnum 1) (thread-sleep! 0.1))
((> attemptnum 5) (thread-sleep! 0.5))
((> attemptnum 10)
((> attemptnum 2) (thread-sleep! 0.05))
((> attemptnum 10) (thread-sleep! 0.5))
((> attemptnum 20) (thread-sleep! 1)))
(debug:print 1 "INFO: attemptnum in rmt:send-receive is " attemptnum)
(thread-sleep! (/ attemptnum 5))))
|