271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
|
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
|
-
-
+
+
|
(begin
(set! success #f)
(debug:print 0 "WARNING: failure in with-input-from-request to " fullurl ".")
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(hash-table-delete! *runremote* run-id)
;; Killing associated server to allow clean retry.")
(tasks:kill-server-run-id run-id) ;; better to kill the server in the logic that called this routine?
;; (signal (make-composite-condition
;; (make-property-condition 'commfail 'message "failed to connect to server")))
(signal (make-composite-condition
(make-property-condition 'commfail 'message "failed to connect to server")))
"communications failed")
(with-input-from-request ;; was dat
fullurl
(list (cons 'key "thekey")
(cons 'cmd cmd)
(cons 'params sparams))
read-string))
|