49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
;; errors from
;; values returned
;; by the client
;; when things go
;; wrong..
exn ;; This is an attempt to detect that situation and recover gracefully
(begin
(debug:print 0 log-port "ERROR: bad data from server " v " message: " ((condition-property-accessor 'exn 'message) exn))
(vector #t '())) ;; should always
;; get a vector but
;; if something
;; goes wrong
;; return a dummy
(if (and (vector? v)
(> (vector-length v) 1))
|
|
>
|
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
;; errors from
;; values returned
;; by the client
;; when things go
;; wrong..
exn ;; This is an attempt to detect that situation and recover gracefully
(begin
(debug:print 0 log-port "ERROR: bad data from server " v " message: "
((condition-property-accessor 'exn 'message) exn))
(vector #t '())) ;; should always
;; get a vector but
;; if something
;; goes wrong
;; return a dummy
(if (and (vector? v)
(> (vector-length v) 1))
|