127
128
129
130
131
132
133
134
135
136
|
;; client:start returns #t if login was successful.
;;
(let ((res (client:start run-id server)))
;; if the server didn't respond we must remove the record
(if res
res
(begin
(open-run-close tasks:server-force-clean-running-records-for-run-id tasks:open-db run-id)
res)))
#f)))
|
|
>
|
127
128
129
130
131
132
133
134
135
136
137
|
;; client:start returns #t if login was successful.
;;
(let ((res (client:start run-id server)))
;; if the server didn't respond we must remove the record
(if res
res
(begin
(open-run-close tasks:server-force-clean-running-records-for-run-id tasks:open-db run-id
" server:check-if-running")
res)))
#f)))
|